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PET Games 
and Recreations 



Chapter 1 



Houu to Use This Book 
for Fun and Learning 



Welcome to the world of PET Games and Recreations. Your 
Playmasters, Mac Oglesby and Len Lindsay, have invented, imag- 
ined, and adapted a mixed bag of old and new games for your enjoy- 
ment and enlightenment. This book is designed to provide diversion 
for readers of all ages and occupations, in the home or in the class- 
room. We've arranged the entertainment in a way that we hope will 
enable you to select what you like and to develop your own logical 
learning path through the book. Of course, we also encourage you to 
try the other alternative: start anywhere and play away! 

THE GAMES 

We organized the games and recreations into five categories: 
plan-ahead games, games of deductive reasoning, games of chance, 
language and counting skills games, and the recreations. 

The games within each category proceed consecutively from 
least difficult to most difficult. In many cases, you can control the 
complexity of the game by taking advantage of the user options pro- 
vided. Six- to eight-year-olds can comfortably begin with the first 
games in each chapter. Conversely, all the games are designed to be 
fun for everybody. If you're an adult, you can still enjoy Qwert, 
Stars, and other beginner-level games. And many younger readers 
are more than capable of tackling the challenges that lie ahead. 

As a rule-of-thumb, we divided the games into three levels of 
difficulty: A for (relatively) easy; B for medium difficulty; and C 
for the brainstretchers. Use these evaluations to help gauge your 
progress through the book as your game-playing skills develop— and 
don't take it too seriously. 

The Plan-Ahead Games test your ability to plan out strategies 
with which to meet your objectives. Your ability to play well de- 
pends on your capacity to think ahead. Every move has conse- 
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quences— some of which won't become apparent until several moves 
later. These games resemble chess in the sense that you can't win by 
fighting skirmishes. You have to work out a battle plan. One of the 
many challenges that these games offer is that winning is only part of 
the fun. There's always a better strategy you can develop. 

Games of Deductive Reasoning place you in the role of detec- 
tive. You're given a certain amount of information. To win the game, 
you must use this information to work out the solution. These games 
will take you to the stars, set you in pursuit of a mythical beast, send 
you to outer space, and last but not least, test your potential as an 
apprentice spy-codebreaker. 

Games of Chance are to give you some relaxation from all this 
exciting brainwork. Visit Las Vegas via your PET computer and gam- 
ble away all your hard-earned stakes. On the other hand, you may 
emerge the winner in this contest of good fortune between you and 
the computer. 

Words and Numbers are games of counting and language skills. 
They're also fun. Make up your own crossword puzzle. If you have 
access to a printer, every player can take away his or her creation. 

The Recreations are clever tricks your PET will perform for 
you, if you follow the Playmasters' instructions. Then sit back and 
watch your PET bounce balls and do wild and crazy things. 

THE GAME WRITE-UPS 

Each game listing is preceded by a short introduction. The pur- 
pose of these introductions is to give you the flavor of the game so 
you can decide which one you want to sample and when. We've also 
provided supplementary information to enhance your enjoyment of 
the game. Each game write-up includes: 

• A short description of the game and your objective in playing it. 

• A summary of instructions for play— what you do and what the 

computer does. 

• The level of difficulty. 

• The PET models you can use to play. These games were designed 

for all PET users. In some cases, however, you may have to 
modify the listings according to the model you own. For exam- 
ple, owners of PET 8K machines may have to leave the REM 
statements out of their listings to save memory for some of the 
longer games. Owners of the Business Model PET may have to 
adapt some of the graphics. 
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• What you can learn from the game— the particular skills, challenge, 

or subject matter the game involves. 

• Some background on the game— its history and additional readings 

and variations. 

• Where the Playmasters permit it, some strategy hints. We solemnly 

promise, however, never to give you more than hints. It's you, 
your brain, and the computer. 

THE LISTINGS 

Program listings in this book were prepared for reproduction 
by the staff of COMPUTE*, magazine. We use an "intelligent" Spin- 
writer interface designed to allow us to obtain a high quality image 
while still handling the special "graphics" characters of the PET. 
Figure 1 shows a sample reproduction of "normal" PET printer out- 
put, using graphics characters, on a dot matrix printer. Figure 2 
shows the same output after processing by our "intelligent" inter- 
face. Our method allows us to produce quite readable, evenly for- 
matted program listings. 



605 OPEN 1,0: PR I NTZG* : PR I NTTflE < 9 > " WMSD I SK 

RECOVERY PROGRAM 
610 PR I NT "WW PUT DISK FOR RECOVERY IN SDR IVES SI 
615 PRINT"MMM HIT ANY KEY WHEN SDISKB IS IN PLACE. 
620 PR I NT "M (DISK WILL THEN BE 

I N I T I AL I ZED > " : GOSUB4008 
625 PRINT#15,"I1":EL=S25:OOSUB5100 
630 PR I NT "MM START: TRACK S17B <DOWN> 

OR Si 91 (. UP > ? SI 79119" ; = I NPUT# 1 , SR : PR I NT 
635 I FSRO 1 7 flNDSRO 1 9THENPR I NT " TTT3" = G0T0630 
640 PR I NTTflE < 7 >" MEND SEARCH AT TRACK: IIHIS".: 

:INPUT#1,SP:PRINT 
645 I FSR= 1 7THEN I FSP< 1 0RSP> 1 6THENPR I NT 

"TTl" : GOTO640 
650 I FSR= 1 9THEN I FSP<20ORSP>35THENPR I NT 

".TTl" :GOTO640 
655 CLOSE 1 :FORJ=0TO 1000: NEXT 



Figure 1. Standard PET Program Listing Containing 
Graphics and Cursor Control Symbols 



605 OPEN1,0:PRINTZG$:PRINTTAB(9) "MxDISK 

-i RECOVERY PROGRAM 
610 PRINT"\W PUT DISK FOR RECOVERY IN -. 

-. xDRIVEr xl 
615 PRINT"\hK HIT ANY KEY WHEN nDISKr -i 

-.IS IN PLACE. 
620 PRINT"^ (DISK WILL THEN BE -. 

-.INITIALIZED) ":GOSUB4000 
625 PRINT#15, "II" : EL=625 :GOSUB5100 
630 PRINT"\W START: TRACK x.l7r (DOWN) -. 

-.OR 1.19 r (UP)? xl7r«r";:INPUT#l f 

-.SR: PRINT 

635 IFSROl7ANDSR<>19THENPRINT"TTTT": 

-.GOTO630 
640 PRINTTAB(7) "^END SEARCH AT TRACK: 
««n"j :INPUT#1,SP: PRINT 
645 IFSR=17THENIFSP<10RSP>16THENPRINT"TT 

-.T":GOTO640 
650 IFSR=19THENIFSP<20ORSP>35THENPRINT"T 

-.TT":GOTO640 
655 CLOSE1:FORJ=0TO1000:NEXT 

Figure 2. Program Segment From Figure 1 After For- 
matting for Reproduction 

Figure 3 shows the translation table for cursor control charac- 
ters. These will appear, embedded in the source code of listings, as 
the symbol shown. 



Jl=HOME , fi=CLEAR SCREEN 

\^=DOWN CURSOR , T=UP CURSOR 

>=RIGHT CURSOR, «=LEFT CURSOR 

X=REVERSE , r=REVERSE OFF 



Figure 3. Cursor Control Characters 



Many of the programs in this book contain a line where a string 
variable is set equal to a bunch of DELETES. To set ZZ$ equal to 
forty DELETES: 

• first, type ZZ$=" 

• second, type one delete (the quotation mark will disappear) 

• third, type a second quotation mark 

• fourth, press the insert key 40 times 
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• fifth, press the delete key 40 times 

• sixth, type a final quotation mark 

Alternatively, this code does the same job: 
FOR J9 = 1 to 40: ZZ$ = ZZ$ + CHR$(20): NEXTJ9 



The special graphics character set of the PET (the graphics char- 
acters or capital letters you obtain by shifting to "upper case") ap- 
pear as the shifted symbol with an underbar. (See Figure 2.) 

One final note, and you're ready to go: 
• The " / v", where encountered in program listings, represents the 
backarrow character of the PET, and the "~\" is used in our list- 
ings in two ways. It serves as a flag to indicate the beginning of 
a continuation line (a line we've broken entirely for format- 
ting purposes), and also appears as the last character of any line 
that ends with a space. By attending to this flag, you can tell 
how many blank spaces need to be inserted while keying in a 
line. Remember, "~| " is only a flag, e.g., it is not part of the ac- 
tual program itself; so when you encounter it, use it as a re- 
minder that the line you're keying in "keeps going." 

BASIC FOR BEGINNERS 

Our games book can be used as a companion piece with begin- 
ning BASIC books. Have fun while you learn the language. As your 
programming skills develop, analyze the listings to see how our two 
Playmasters put them together. Add your own embellishments for 
your private playing enjoyment. 

There are a number of excellent Beginning BASIC books. We 
recommend PET BASIC I. Training Your PET Computer by Ramon 
Zamora, Bob Albrecht, and Bill Scarvie (Reston, Virginia: Reston 
Publishing Company, Inc., 1981). If you're ready to explore into the 
further reaches of computer science, however, proceed to our Hon- 
orary C.W.S. Degree. 

SPECIAL GUEST LECTURES 

Exclusive Feature for Readers of PET Games Recreations: 

Professor Wacko 's Lecture Series 
on Computer Wacko Science (C.W.S. ) 
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These lectures are extracurricular extravaganzas into the inner 
workings of your PET and PET BASIC. Only those with a sense of 
humor need apply! Dr. Wacko shows you how to POKE around in- 
side your PET, make question marks and cursors disappear, ride the 
Loop-de-Loop, and purposely make mistakes, culminating in planned 
chaos and confusion. 

GAMES BIBLIOGRAPHY 

Games are as old as the human race. If you're interested in pur- 
suing their make-up and history, we've provided a bibliography of 
additional reading on games in general and some of our games in par- 
ticular. This bibliography is far from all-inclusive. We've tried to in- 
clude some interesting background reading and reference works on 
the genesis of games. 

Now-LET THE GAMES BEGIN! 



A Note About COMPUTE! Magazine: 

COMPUTE 1 , is a monthly magazine that presents application articles, pro- 
grams, and other useful information to owners and users of 6502 microprocessor- 
based computers. Our emphasis is one of helping brand new beginners, as well as 
experienced users. U.S. subscription price is $20. Address inquiries to COM- 
PUTE'. Magazine, P.O. Box 5406, Greensboro, NC 27403 

COMPUTE! The Journal for Progressive Computing is a publication of 
Small System Services, Inc. 

COMPUTE! magazine and its staff are not responsible for the accuracy of 
the programs, or any errors or omissions in the listings of same. 
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Plan-flhead Games 



Qwert 

by Len Lindsay 



Qwert is a tantalizing little puzzle with which to begin your 
PET play. 

You're given five boxes in a row: 
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You win when you've reversed their order to look like: 
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Here's how: This puzzle is based on the keys that move your pieces. 
These are: 

QWERT 

To move the first box on your screen, hit the "Q" key. To move the 
second box, hit the "W" key. Need we say more? (By now, you'll 
have figured out how Len got the name for this game.) 

Here's the catch— at any given time, there's only one blank box 
on the screen, whose location shifts as you play the game. You can 
only move a piece into this blank space by jumping over another 
piece into the blank space or by moving your piece into the blank 
space next to it. It's not hard to win— the challenge is to win in the 
least number of moves: 8 (eight) moves. Your PET will reward you 
by displaying: 

"PERFECT PLAYING!" 

on your screen. 

For your convenience, your past moves are recorded graphically 
on the screen in the upper right-hand corner. Illegal moves are simply 
ignored— just try again. 

To evaluate your puzzle-playing potential: 

GENIUS: 5 (five) minutes or less 
EXCELLENT: 10 (ten) minutes or less 
AVERAGE: 20 (twenty) minutes or less. 

You can play this game on all PET models, including 80-column 
machines. However, owners of business models may have to substi- 
tute some of the graphic characters. As an example: 

GRAPHICS FOR BUSINESS MODELS 

Shift & is a gray box. Substitute #. 
Shift " is a half-white box. Substitute shift Q. 
Shift ( is a half -gray box. Substitute *. 
Qwert is an A-level game. 
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REM*** WORKS ON ORIGINAL PET 2001-8, 

-i NEW PET/CBM, BASIC 4.0 , & CBM -i 
-.8032 & 8016 

1 REM***QWERT - PUZZLE 

2 REM***ORIGINAL PROGRAM 

3 REM***(C) 1980 

4 REM***LEN LINDSAY 

5 REM***01-30-80 

9 REM***USES MAIN SUBROUTINES 10100, 

10 POKE59468,12^'^ 3 ^ 7;? yi2-( <£-v & H\ 
15 XQ=RND(-TI) :XQ=0 

20 PRINT "R"; 

50 REM 

51 ZZ$=" 

-,":REM 40 DELETE 

52 ZD$="ttWttm+WtWWW+W : 

-iREM 23 DOWN 
54 ZR$= "»»»»»»»»»»»»»»»»»»»»»> 

-i»»»»»» n :REM 40 RIGHT 
56 ZL$=" «««««««««««««««" i 

iREM 30 LEFT 
58 ZS$=" ": 

-,REM 30 SPACE 
60 P$(0)= n «<«i «<«i » -i 

-><««+ <««i r" 

62 P$ ( 1 ) = "&&&&&.<««*&&&&&.<««*&&>&&.<« 

64 P$(2)="x"+P$(0) 

66 RM$="Ji"+LEFT$(ZD$ f 8)+ZS$+ZL$ 

90 PRINT "+DO YOU NEED INSTRUCTIONS?" 

92 GOSUB10130 

94 IFXA$="Y"THENGOSUB5000:GOTO100 

96 IFXA$<>"N ,, THEN92 

100 P(1)=1:P(2)=1:P(3)=0:P(4)=2:P(5)=2: 

-.REM SET UP START POSITIONS 
105 P(0)=3:P(6)=3:P(7)=3:REM BORDER -i 

iPOSITIONS 
110 MV=0:REM INIT 
130 GOSUB6000:REM DRAW BOARD 
140 GOSUB7000:REM DRAW PIECES 
200 PRINTRM$; n xWHAT IS YOUR MOVE??"; 
202 GOSUB10130 
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210 XM$="QWERT":GOSUB10300 

220 IFXF=0THEN202 

230 P=P(XF):REM PIECE TO MOVE? 

240 IFP=0THEN200 

250 GOSUB1000:REM CHECK MOVE & MOVE IT 

260 GOTO200:REM ASK FOR NEXT MOVE 

1000 IFP(XF+1)=0THENP(XF+1)=P:P(XF)=0 

iGOTO3000 
1010 IFP(XF+2)=0THENP(XF+2)=P:P(XF)=0; 

-.GOTO3000 
2000 IFP (XF-1 ) =0THENP (XF-1 ) =P: P (XF) =0 ; 

1GOTO3000 
2010 IFXF>1THEN IF P(XF-2) =0THENP(XF-2)= 

iP:P (XF) =0 :GOTO3000 
2020 RETURN 

3000 MV=MV+1:REM INCREMENT MOVE 
3005 GOSUB7000:REM DRAW PIECES 
3020 IFP(1)=2ANDP(2)=2ANDP(4)=1ANDP(5)=1 

->THEN8000:REM WINNER 
3025 IFMV>22THENPRINTRM$"YOU SEEM LOST -, 

-i- TRY AGAIN?"; :GOTO8010 
3030 GOSUB9000 
3040 PRINT"]i"+LEFT$(ZD$,MV)+LEFT$(ZR$, 

-i31)+MV$ 
3099 RETURN 

4999 END 

5000 PRINT "fi";: REM INSTRUCTIONS 
5010 PRINT "WELCOME TO rQWERTr - A -n 

-iPUZZLE FOR YOUR" 
5020 PRINT "^THOUGHTS, YOU HAVE 5 BOXES -i 

-■IN A LINE:" 
5030 PRINTS iHlf if - THIS IS -. 

-iTHE STARTING" 
5040 PRINT"fPOSITION. YOU TRY TO -i 

^REVERSE THEIR" 
5050 PRINT"tORDER FOLLOWING THESE RULES: 

5060 GOSUB10100 

5100 PRINT"fiYOU CAN SLIDE ANY MARKER TO - 

-i AN ADJACENT" 
5110 PRINT "tBLANK SPOT. OR YOU MAY JUMP - 

iOVER ONE" 
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5120 PRINT "^MARKER ONTO A BLANK. THE -. 

-.FIVE BOXES" 
5130 PRINT n *HOLDING THE MARKERS ARE i 

-iREPRESENTED BY" 
5140 PRINTHTHESE FIVE KEYS : xQf iWr -. 

-.xEr xRr rTr." 
5150 PRINT "tTHUS YOU SEE WHERE THE NAME 

-.CAME FROM." 
5160 PRINT "*TO MOVE THE SECOND MARKER -. 

-.YOU WOULD" 
5170 PRINT"*HIT THE rWr KEY. YOU WIN -. 

-.WHEN THE" 
5180 PRINT"*MARKERS LOOK LIKE: £ r j: ? 

5190 GOSUB10100 

5200 PRINT"fiBY THE WAY, YOU SHOULD BE -. 

-.ABLE TO DO IT" 
5210 PRINT"*IN ONLY 8 MOVES." 
5220 PRINTHYOU ARE A xGENIUSr IF YOU -. 

-.GET IT IN" 
5230 PRINT"*5 MINUTES OR LESS." 
5240 PRINT"JYOU DID ^EXCELLENT? if you - 

-.GET IT IN" 
5250 PRINT"tl0 MINUTES." 
5260 PRINT"*20 MINUTES IS ABOUT -. 

-i AVERAGE. W++" 
5270 GOSUB10100 
5299 RETURN 

6000 PRINT "fi";: REM DRAW BOARD 
6010 F0RX=1T031:PRINT"X";:NEXTX 
6020 PRINT" xMOVESr" 
6030 F0RY=1T05 



6040 


:F0RX=1T05 




6050 


: :PRINT"X 


/ 


6060 


: NEXTX 




6070 


:PRINT"X" 




6080 


NEXTY 





6090 F0RX=1T031:PRINT"X";: NEXTX 

6091 PRINT"]rhW»»Q»»»W»»»E»»»»»R»»» 

n»T" 
6095 PRINT 
6099 RETURN 
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7000 FORX=0TO4 

7010 : PRINT "lit "; 

7020 ?PRINTLEFT$(ZR$, (X*6)+l) ; 

7030 :PRINTP$(P(X+1)) 

7040 NEXTX 

7099 RETURN 

8000 PRINTRM$ ; "x.YOU WON I 1 1 I r " ; 

8003 IFMV=8THENPRINT "PERFECT PLAYING!*" 

8006 PRINT"-TRY AGAIN?"; 

8010 GOSDB10130 

8020 IFXA$="Y"THENRUN 

8030 END 

9000 F0RQQ=1T05 

9010 :IFP(QQ)=0THENMV$=MV$+" ." 

9020 :IFP(QQ)=1THENMV$=MV$+" 1" 

9030 :IFP(QQ)=2THENMV$=MV$+" 1" 

9040 NEXT QQ 

9050 MV$=RIGHT$(MV$,9) 

9099 RETURN 

10100 IFXX$=""THENXX$="x HIT SPACE TO -i 

-iCONTINUE r" : REM GET 1 CHARACTER 
10120 IFXX$<>" "THENPRINTXX$; : REM -i 

iPRINT MESSAGE 
10130 GETXA$:IFXA$>""THEN10130:REM -• 

iCLEAR BUFFER 
10140 GETXA$:IFXA$=""THEN10140 
10150 XA=VAL(XA$) 
10199 XX$="":RETURN 
10300 XF=0:REM INITIALIZE FLAG - EDIT 1 -. 

-.CHARACTER 
10320 IFXM$=""THENXM$="YN":REM DEFAULT -. 

-.FOR YES OR NO 
10330 FORXX=lTOLEN(XM$) 
10340 :IFXA$=MID$(XM$ f XX f l)THENXF=XX 
10350 NEXT 

10399 XM$="":XX=0: RETURN 
READY. 



Capture 

by Mac Oglesby 
(A Game for One or Two Players) 

The drama of Capture takes place on a playing field. 
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HOW MANY HUMAN PLOVERS <1 OR 2>? 
This field changes randomly with each game*. Your objective is to 
capture more of the playing field than your opponent, not counting 
the blank spaces. The limit of the space you can capture during each 
turn is a field shaped like this: 
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TO CAPTURE, JUST TVPE THE LETTER. 

TVPE * TO CALL THESE INSTRUCTIONS AGAIN. 
PRESS RETURN WHEN YOU'RE RE ADV. . . 



"The REMarks at lines 8754-8758 will tell you how you can try again 
with the same playing field setup. 
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Each player in turn selects a letter from A to Z, corresponding to its 
spot on the screen. When you type in the letter you've selected, all 
symbols within its capture field change to your symbol (not count- 
ing the blank spaces). You've made a capture! For example, you 
choose the letter A on the playing field displayed in the illustration, 
and your symbol is #. The area you've captured is: 
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THE f'S CAPTURE... 



Letters are eliminated as the game progresses, and the game ends 
when all the letters have been used up. Your PET then counts the 
score and announces the winner. 
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The key to winning is to always keep in mind the shape of the 
field that shows the area in which you can take captives. A smart 
move will either capture more than one letter for you or convert 
some of your opponent's symbols into your own. (Owners of PET 
8K computers may want to eliminate REM lines from their listing in 
order to save memory.) This is a B-level game. Good luck! 
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100 REM NAME: CAPTURE 

105 REM 

110 REM (C) MAC OGLESBY 2/20/78 

112 REM 

115 REM LAST REVISION: 3/30/80 

117 REM 

120 REM A GAME FOR 1 OR 2 PLAYERS. 

130 REM COPYRIGHT 1978 BY MAC OGLESBY 

140 REM PERMISSION GRANTED TO USE, 

150 REM BUT NOT TO SELL. 

160 REM 

170 REM 

1000 REM INITIATE 

1010 PRINT"fi n ; :FOR J=l TO 18:PRINT "»";: 

-.NEXT J 
1020 PRINT n 2t«22S.t«*<22222*«««2££££ 

1030 PRINT "^WELCOME TOW* C A P T U R - 

-.E" 
1040 PRINT "WWWANT INSTRUCTIONS (YES -. 

-.OR NO)?";:GOSUB 10000 
1050 IF XA$O n Y n THEN 1100 
1060 X=-l 

1070 PRINT "Mtt+ti+W 
1080 PRINT n I'LL PRINT INSTRUCTIONS -. 

-^AFTER I MAKE" 
1090 PRINT"MTHE PLAYING BOARD..." 
1095 FOR J=l TO 5000: NEXT J 
1100 DIM D$(20) ,E$(20) ,L(26) ,M(26) , 

^R(25),C(25),P$(2) 
1110 P$(1) = "#":P$(2)= ,, £" 

1140 FOR J=l TO 25:READ R( J) , C( J) :NEXT J 
1150 DATA -3,0,-2,-1,-2,0,-2,1 
1155 DATA -1,-2,-1,-1,-1,0,-1,1,-1,2 
1160 DATA 0,-3,0,-2,0,-1,0,0,0,1,0,2,0,3 
1165 DATA 1,-2,1,-1,1,0,1,1,1,2 
1170 DATA 2,-1,2,0,2,1,3,0 
1180 A$=" n :FOR J=l TO 40:A$=A$+" " : 

-.NEXT J 
1190 FOR J=l TO 20:D$(J)=A$:NEXT J 
1195 PRINT"fi"; 
1200 FOR J=l TO 300 
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1210 R8=1+INT(20*RND(1) ) :C8=1+INT(40*RND 

-i(D) 
1220 P8=32767+C8+40*(R8-1) : IF PEEK(P8)<> 

-.32 THEN 1210 
1230 C$="&":IF J>26 THEN POKE P8 f 102 
1240 IF J<27 THEN L ( J) =100*R8+C8 : 

iC$=CHR$(J+64) :POKE P8,J:REM -. 

->M(J)=L(J) 
1250 GOSUB 6000 
1260 NEXT J 
1300 REM FOR J=l TO 20 :E$ ( J) =D$ ( J) : 

-.NEXT J 
1400 IF X<0 THEN GOSUB 9000 

1500 dn$= m W+MiiMHW+miiii1i " 

1510 REM 
1550 ZZ$=" 

-i":REM LINE 1550 ZZ$=40 -. 

-iDEL 
1560 RT$= n »»»»»»»»»»>»»»»»» 

-i»»»»»»" 
2000 T=2 

2100 PRINT "2T;LEFT$(DN$,21); 
2110 PRINT "HOW MANY HUMAN PLAYERS (1 -. 

-.OR 2)?" 
2120 GOSUB 10000 

2130 IF XA$O n l n AND XA$<>"2" THEN 2110 
2140 PL=VAL(XA$) 
2150 IF PL=2 THEN 3000 
2200 PRINT "h";LEFT$(DN$ f 21); ,, OK f 

-.I'LL PLAY THE #'S" 
2210 PRINT "tWHO GOES FIRST (l=COMPUTER - 

n 2=YOU) " 
2220 GOSUB 10000 
2230 IF XA$<>"1" AND XA$<>"2" THEN -i 

2240 T=3-VAL(XA$) 

3000 REM *** COMPUTER'S MOVE 

3100 T=3-T 

3110 IF PL=2 OR T=2 THEN 4000 

3130 GOSUB 10700 :PRINT "PLEASE BE -. 

-iPATIENT WHILE I THINK... f 
3140 E=0 
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3160 FOR J=l TO 26 

3200 IF L(J)=0 THEN 3900 

3210 PRINT CHR$(J+64); n "; 

3220 R=INT(L(J)/100) :C=L ( J) -R*100 

3240 Q=0 

3250 FOR K=l TO 25 

3260 R1=R+R(K):IF Rl>20 OR RK1 THEN -. 

i3400 
3270 C1=C+C(K):IF Cl>40 OR CK1 THEN -. 

-.3400 
3280 X$=MID$(D$(R1) ,C1,1) : IF X$=" " OR -. 

->X$="#" THEN 3400 
3290 Q=Q+1 
3400 NEXT K 
3500 IF Q>E THEN M$=CHR$ ( J+64) : E=Q: 

iGOTO 3900 
3510 IF Q=E THEN M$=M$+CHR$ ( J+64) 
3900 NEXT J 

3910 X=1+INT(LEN(M$)*RND(1)) 
3920 Z$=MID$(M$,X,1) :X=ASC (Z$) -64 
3930 GOSUB 10600 
3940 GOSUB 10700: PRINT "I CAPTURE ";Z$: 

-.GOTO 4300 
4000 REM *** HUMAN'S MOVE 
4110 PRINT"THE n ;P$(T); B 'S CAPTURE..."; 
4200 GOSUB 10000 
4210 IF XA$="*" THEN GOSUB 9000: 

-.GOTO 4110 
4240 X=ASC(XA$)-64:IF X<1 OR X>26 THEN -. 

-.4260 
4250 IF L(X)<>0 THEN 4300 
4255 GOSUB 10600 :GOSUB 10700 :PRINT -» 

-."THAT LETTER HAS BEEN CAPTURED H": 

-.GOTO 4110 
4260 GOSUB 10600:GOSUB 10700 :PRINT "YOU - 

-.CONFUSE ME. TYPE * FOR HELP.*" 
4290 GOTO 4110 

4300 R=INT(L(X)/100) :C=L(X)-R*100 
4390 C$=P$(T) 
4400 FOR J=l TO 25 
4410 R8=R+R(J):IF R8<1 OR R8>20 THEN -. 

-.4500 



CAPTURE 19 



4420 C8=C+C(J):IF C8<1 OR C8>40 THEN -. 

-i4500 
4430 Z$=MID$(D$(R8) ,C8,1) : IF Z$= n " -. 

iTHEN 4500 
4440 X=ASC(Z$):IF X>64 AND X<91 THEN -. 

-.L(X-64)=0 
4450 GOSUB 6000 
4500 NEXT J 
4520 GOSUB 7000 :X=0 

4600 FOR J=l TO 26:X=X+L(J) :NEXT J 
4610 IF X=0 THEN 8000 
4700 GOTO 3000 
6000 REM *** UPDATE BOARD 
6100 IF C8=l THEN D$ (R8) =C$+RIGHT$ (D$ (R8 

-.) ,39) .-RETURN 
6200 IF C8=40 THEN D$ (R8) =LEFT$ (D$ (R8) , 

-.39)+C$:RETURN 
6300 D$(R8)=LEFT$(D$(R8) , C8-1) +C$+RIGHT$ 

-.(D$(R8) ,40-C8) :RETURN 
7000 REM *** PRINT BOARD 
7010 PRINT "Ji"; 

7100 FOR J=l TO 20.-PRINT D$(J);:NEXT J 
7200 PRINT .-RETURN 
8000 REM *** END 

8100 PRINT"fiNOW, LET'S SEE WHO WON..." 
8200 H1=0:H2=0 
8300 FOR J=l TO 20 
8310 PRINT D$(J) ; 
8320 FOR K=l TO 40 
8330 A$=MID$(D$(J) ,K,1) 
8340 IF A$="# n THEN Hl=Hl+l:GOTO 8400 
8350 IF A$= n £" THEN H2=H2+1 
8400 NEXT K 
8500 NEXT J 

8600 IF H10H2 THEN 8700 
8620 PRINT-TIE GAMEM1 EACH HAS"; Hi; "CAP 

-.T IVES.": GOTO 8720 
8700 PRINT-THE n ;P$ ( (SGN(H2-Hl) +3)/2) ; " • 

-.S WINII!" 
8710 PRINT"THE #'S HAVE"; Hi; "AND THE -i 

-ifi , S";H2 
8720 PRINT"PRESS RETURN TO PLAY -■ 

-■AGAIN. " 
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8730 PRINT "PRESS ANY OTHER KEY TO -■ 

-.STOP. " 
8740 GOSUB 10000 
8750 IF ASC(XA$)=13 THEN PRINT "fiRUN": 

-.RUN 
8752 PRINT "fiBYE FOR NOW...": END 
8754 REM LINES 8760-8840 ALLOW FOR -. 

-.REPLAY WITH SAME BOARD SETUP IF -. 

-.THE CODE 
8756 REM FOLLOWING THE REMS IN LINE -. 

-.1240 AND LINE 1300 IS RESTORED. 
8758 REM MY 8K PET RUNS OUT OF MEMORY 
8760 PRINT "fi!hhhhhWt»»»»»»l = SAME -. 

-.SETUP" 
8770 PRINT"^»»»»>2 = NEW BOARDf*" 
8780 PRINT"PLEASE TYPE 1 OR 2 . . . "; 
8790 GOSUB 10000 

8800 IF XA$="2" THEN PRINT "fiRUN": RUN 
8810 IF XA$<>"1" THEN PRINT.-GOTO 8780 
8820 FOR J=l TO 20 :D$ ( J) =E$ ( J) :NEXT J 
8830 FOR J=l TO 26 :L ( J) =M( J) .-NEXT J 
8840 GOSUB 7000:GOTO 2000 
9000 REM *** RULES 
9010 PRINT "fi"; 
9100 PRINT "GOING IN TURN, THE PLAYERS -. 

-. ( # AND £) " 
9110 PRINT "CAPTURE ANY LETTER ON THE -. 

-.BOARD. NOT" 
9120 PRINT "COUNTING SPACES, ALL -. 

-.CHARACTERS WITHIN" 
9125 PRINT "THIS SHAPE FIELD:"; 
9130 PRINT " +S t *« &StSi +««&&&S t &*«««& 

-.&& A&&& tH-*-^-*<&&&&&^<K^&&&\N-*&" 
9140 PRINT "*ARE ALSO CAPTURED AND -. 

-.CHANGE TO THAT" 
9150 PRINT "PLAYER'S SYMBOL." 
9160 PRINT 
9170 PRINT "THE GAME ENDS WHEN ALL -. 

-.LETTERS ARE" 
9190 PRINT "GONE. THE PLAYER WITH THE -. 

-.MOST" 
9200 PRINT "CAPTIVES WINS.": PRINT 
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9220 PRINT "TO CAPTURE, JUST TYPE THE -i 

-•LETTER." 
9230 PRINT HTYPE * TO CALL THESE -> 

-■INSTRUCTIONS AGAIN." 
9300 PRINT: PRINT "PRESS RETURN WHEN -. 

-.YOU'RE READY..."; 
9400 GOSUB 10000 

9410 PRINT "fi":GOSUB 7000:RETURN 
10000 REM GET 

10300 GET XA$:IP XA$<>"" THEN 10300 
10310 GET XA$:IF XA$="" THEN 10310 
10400 GOSUB 10600 
10500 RETURN 

10600 PRINT "Jl";DN$;RT$;ZZ$;ZZ$;ZZ$;ZZ$ 
10610 RETURN 

10700 PRINT n li B ;LEFT$(DN$,21); 
10710 RETURN 
READY. 



Tic Tac Toe 

by Mac Oglesby 



This ancient and popular game may some day be found on the 
walls of caves— who knows how many hundreds of years people have 
been playing it! King Tut, Socrates, and Queen Elizabeth I would all 
probably recognize: 
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WELCOME TO TIC-TflC-TGE 
PRESS RETURN TO BEGIN... 



This simple little game really isn't so simple. Charles Babbage, 
one of the fathers of computer science, developed six machines so he 
could simulate Tic Tac Toe. It's been the subject of numerous other 
strategies and computer simulations. Some programmers have even 
gone out of their way to develop versions of Tic Tac Toe that only 
the computer can win. 

We haven't been so cruel. Who goes first (you or the computer) 
is randomly decided, so you will have your chance to be the victor. 
Best play for both opponents is always to play to a draw. However, 
if you or the computer gets lazy, one of you will emerge the winner. 

For a discussion of Tic Tac Toe strategy, and some imaginative 
variations such as Toe Tac Tic, see Your Move by David L. Silverman, 
New York, 1971. Donald D. Spencer, in Game Playing with Compu- 
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ters, New Jersey: Hayden, 1975 gives you the opportunity to write 
your own Tic Tac Toe program with personal touches. 

We've classified this game as Level B. Believe it or not, you're 
on your way to thinking like a chess player when you've mastered 
this. Mac's Tic Tac Toe is for all PETs, all ages, and for all playtimes. 
In case anyone needs reminding, some winning configurations are: 
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**# CONGRATULATIONS, YOU'VE WON *** 
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*** I WIN *** 
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100 REM NAME: TICTACTOE 

105 REM 

110 REM (C) MAC OGLESBY 2/22/7 '8 

120 REM (ADAPTED FROM A PUBLIC DO- 

130 REM MAIN PROGRAM WRITTEN BY 

140 REM TOM KURTZ AND JOHN KEMENY) 

150 REM LAST REVISION 12/17/79 

160 REM 

1000 REM *** INITIALIZATION 

1010 POKE 59468,12: REM GRAPHICS MODE 

1100 DIM T(8,3) f O(9 f 4) f C(9),B(9) f Q(9) f 

-.V(9),C$(2),L(9) 
1200 FOR P=l TO 8: FOR 1=1 TO 3 
1210 : READ T(P,I) 
1220 NEXT I: NEXT P 
1230 DATA 7,8,9,4,5,6,1,2,3,7,4,1 
1240 DATA 8,5,2,9,6,3,7,5,3,1,5,9 
1300 FOR S=l TO 9: FOR J=l TO 4 
1310 : READ U(S,J) 
1320 NEXT J: NEXT S 
1330 DATA 3,4,8,0,3,5,0,0,3,6,7,0 
1340 DATA 2,4,0,0,2,5,7,8,2,6,0,0 
1350 DATA 1,4,7,0,1,5,0,0,1,6,8,0 
1400 C$ (1) ="QtG*Q*flttH-«-«GTGTGTGTG" 
1410 C$(2)="»Q_««Q_«« t<Qi<Q$<Q$QQQ.'[Q.<lQ.< 

-.T£H<TO_ " 
1500 FOR J=l TO 9 
1510 : READ L(J) 
1520 NEXT J 

1530 DATA 1608,1616,1624,808,816,824 
1540 DATA 8,16,24 

1600 Bl$=" £ £" 

1610 B2$=" &&&&&&&&&&&&&&&&&&&&&&& 

n 

1650 B(1)=-1:B(3)=-1:B(6)=-1:B(2)=1: 

-.B(4)=1:B(9)=1 
1660 GOSUB 8000 

1670 D$= n \WThWtThhhhhhhhhhhWThW 

1700 PRINT "Jl";D$; 

1710 PRINT "WELCOME TO TIC-TAC-TOE" 

1720 PRINT HPRESS RETURN TO BEGIN..."; 

1730 GOSUB 7000 
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1740 IF ASC(A$)<>13 THEN 1730 

2000 REM *** HERE TO BEGIN GAME 

2010 PRINT "fi"; 

2100 N=0 

2110 FOR S=l TO 9: C(S)=0: B(S)=0: 

-i NEXT S 

2200 GOSUB 8000 

2310 IF RND(1)>.5 THEN 2400 

2320 PRINT "YOU MOVE FIRST. " ; 

2330 GOTO 3000 

2400 PRINT "I MOVE FIRST. "; 

2410 GOTO 5000 

3000 REM *** PLAYER'S MOVE 

3100 PRINT "YOUR MOVE..."; 

3110 GOSUB 7000 

3300 M=VAL(A$) : F=-l 

3310 IF M=INT(M) AND M>0 AND M<10 THEN 

-.3400 

3330 GOSUB 8800: GOTO 3800 

3400 IF B(M)=0 THEN 4000 

3410 GOSUB 8800 

3500 PRINT " THAT SQUARE IS TAKEN; -. 



nPICK ANOTHER. 



« 



/ 



3510 GOTO 3100 

3800 PRINT " TO MOVE, TYPE A DIGIT -. 

-.FROM 1 TO 9. "; 
3850 GOTO 3100 

4000 REM *** UPDATE C(), CHECK FOR WIN 
4010 B(M)=F 
4050 PRINT "Ji"; 

4060 R=INT(L(M)/100) : C=L(M)-100*R 
4070 FOR J=l TO R: IF RO0 THEN PRINT - 

4075 NEXT J 

4080 FOR J=l TO C: PRINT "»";: NEXT J 

4090 PRINT C$((B(M)+3)/2) 

4095 GOSUB 8800 

4110 FOR J=l TO 4 

4120 : P=U(M,J): IF P=0 THEN 4200 

4130 : C(P)=C(P)+F 

4140 : IF C(P)=-3 THEN 5600 

4150 : IF C(P)=3 THEN 5500 
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4200 NEXT J 

4300 N=N+1 

4310 IF N=9 THEN 5700 

4400 IF F=l THEN 3000 

5000 REM *** COMPUTER'S MOVE 

5100 GOSUB 6000 

5200 F=l: GOTO 4000 

5300 REM GAME IS OVER 

5500 A$="*** I WIN ***": GOTO 9000 

5600 A$="*** CONGRATULATIONS, YOU'VE -. 

-■WON ***": GOTO 9000 
5700 A$="THIS GAME IS A DRAW...": 

-. GOTO 9200 
6000 REM *** SELECT A MOVE 
6100 FOR P=l TO 8 
6110 : IF C(P)=2 THEN 6200 
6120 NEXT P 
6130 FOR P=l TO 8 



6140 


: IF C(P)=-2 THEN 6200 


6150 


NEXT P 


6160 


GOTO 6300 


6200 


FOR 1=1 TO 3 


6210 


: M=T(P,I) 


6220 


: IF B(M)=0 THEN 6600 


6230 


NEXT I 


6300 


FOR S=l TO 9: V(S)=0: IF B(S)<>0 -. 




-.THEN 6400 


6310 


: FOR J=l TO 4: P=U(S,J) 


6320 


: : IF PO0 THEN V(S)=V(S) +1+ABS (C ( 




-.P)) 


6350 


: NEXT J 


6400 


NEXT S 


6500 


V=0 


6510 


FOR S=l TO 9 


6520 


: IF V(S)<=V THEN 6560 


6530 


: V=V(S) 


6540 


: M=S 


6560 


NEXT S 


6600 


RETURN 


7000 


REM *** GET INPUT 


7100 


GET A$: IF A$O n " THEN 7100 


7200 


GET A$: IF A$= n " THEN 7200 
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7300 RETURN 

8000 REM *** PRINT THE BOARD 

8010 PRINT "fi n ; 

8100 FOR J=l TO 6: PRINT Bl$: NEXT J 

8110 PRINT B2$ 

8120 FOR J=l TO 7: PRINT Bl$: NEXT J 

8130 PRINT B2$ 

8140 FOR J=l TO 6: PRINT Bl$: NEXT J 

8200 FOR 1=1 TO 9: PRINT "Ji"; 

8210 R=INT(L(I)/100) : C=L(I)-100*R 

8220 FOR J=l TO R: IF R>0 THEN PRINT -. 

8225 NEXT J 

8230 FOR K=l TO C: PRINT ">";: NEXT K 

8240 IF B(I)<>0 THEN PRINT C$ ( (B( I) +3)/2 

--) 
8250 NEXT I 
8600 PRINT "li"; 

8610 FOR J=l TO 35: PRINT "»";: NEXT J 
8620 PRINT "71819TH«<««iLLJLL£TM«'«<4±516^ 

8630 PRINT n Ji n ;D$; 

8640 RETURN 

8800 REM *** CLEAR SCREEN BOTTOM 

8830 FOR J=l TO 80: POKE 33647+J,32: 

n NEXT J 
8850 PRINT "IT;D$; 
8900 RETURN 
9000 REM *** FINALE 
9100 FOR J=l TO 4 

9110 : POKE 59409,52: REM BLINK SCREEN 
9120 : FOR K=l TO 200:NEXT K 
9130 : POKE 59409,60 
9140 : FOR K=l TO 200 .-NEXT K 
9150 NEXT J 
9200 FOR J=l TO 5 

9210 : IF INT(j/2)=j/2 THEN 9250 
9220 : PRINT n x. n ;A$ 
9230 : FOR K=l TO 200: NEXT K 
9250 : PRINT "Ji n ;D$;A$ 
9260 : FOR K=l TO 200:NEXT K 
9270 : PRINT "li n ;D$; 
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9280 
9290 
9295 
9300 

9310 

9320 

9330 

9340 

9400 
9410 
9420 

READY . 



NEXT J 

Fl$= n x. 

PRINT "Ja";Fl$ 

PRINT "TxPRESS ": PRINT Fl$: 

-i PRINT "TxRETURN": PRINT Fl$ 
PRINT "TjlTO ": PRINT Pl$: 

-i PRINT "jlPLAY ": PRINT Fl$ 
PRINT "xAGAIN;": 

-i PRINT "xANY 
PRINT "MOTHER " : 

-i PRINT "jlKEY 
PRINT "jlTO ": 

-. PRINT "I.STOP 
GOSUB 7000 

IF ASC(A$)=13 THEN 2000 
PRINT "fittTHANKS FOR PLAYING -. 

iTIC-TAC-TOE WITH ME.tt" 



PRINT Fl$: 
": PRINT Fl$ 
PRINT Fl$: 
": PRINT Fl$ 
PRINT Fl$: 
": PRINT Fl$ 



Reverse 

by Mac Oglesby 



A row of numbers (or letters) dance onto your screen in this 
game of skill. The numbers are out of order; in fact, they're thor- 
oughly scrambled. Your challenge is to restore them to their proper 
consecutive order by reversing their positions. For example, let's use 
the first five digits. You can win if you can convert them into their 
proper order, which is 12345. Now let's say they are mixed around 
and you start with 51432. 

The tool at your command is reversal. Press the numeral 2 on 
your keyboard. The position of the first two numbers will be re- 
versed: 

15432 (from 57432 to 75432) 

Press the numeral 3— the position of the first three numbers will be 
reversed: 

45132 (from 15432 to 451 32) 

And so on. If you press 5, the position of all five numbers will be 
reversed. 

This is a game of strategy. You can turn these numbers around 
all day and all night and never get them into the right order until you 
slow down and plan your attack. There are several surefire methods 
of always getting your unruly flock of numerals back into line— and 
we're not telling you what they are! 

Once you've invented your strategy, there's still the challenge of 
getting them right with the least possible moves. (For five numbers, 
you can always do it in seven or fewer moves.) 

You can control the difficulty of this game by taking advantage 
of the choices Mac gives you. You can choose numbers or letters (de- 
pending on how well you know the alphabet), and you can choose 
from three to nine items (numbers or letters) in a scrambled list. 

Unscrambling 312 is an A/B-level challenge. By the time you've 
worked out your optimum strategy for putting BCAFGEDIH back 
into order, you've reached C-level gameplaying. No matter how frus- 
trated you get, don't give up\ Once you've cracked one of the win- 
ning strategies, you'll see how obvious it was all the time. 
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For a mathematical discussion of winning Reverse by algorith- 
mic and heuristic constructs, you may order What To Do After You 
Hit Return from People's Computer Company, P.O. Box E, Menlo 
Park, CA 94025. 



100 REM *** REVERSE *** 

110 REM 

120 REM THIS VERSION OF REVERSE IS (C) 

130 REM MAC OGLESBY MAY 1980. 

140 REM 

150 REM BASED ON THE PROGRAM REVERSE 

160 REM BY PETE SESSIONS PUBLISHED IN 

170 REM "PEOPLE'S COMPUTER COMPANY" 

180 REM 

190 REM LAST REVISION 5/11/80 10:30 

200 REM 

1010 POKE 59468, 12 :REM GRAPHIC MODE 

1020 X=RND(-TI) 

1100 DEF FNL(Z)=400+Z*4+32768 

1110 SP=32 

1130 M=9:WC=1 

1200 dn $= n hitWritit+*iWrttiiiit+ " 

1500 PRINT "fiWELCOME TO xREVERSEr." 

1510 GOSUB 6000 

1550 XX$="PRESS JLRETURNr TO START..." 

1560 GOSUB 10000 

1580 GET XA$:IF XA$<>"" THEN 1600 

1590 N=3+INT(RND(1)*7) :G0SUB 5000: 

iFOR J=l TO 500:NEXT 
1595 IF FLAG=0 THEN 1580 
1600 FLAG=1: PRINT "fi"; 
1610 XX$="WANT INSTRUCTIONS FOR n 

-ijlREVERSEr (Y OR N)?" 
1620 GOSUB 10000 

1630 IF XA$="Y" THEN GOSUB 9000 
1700 XX$="WANT TO REVERSE xNrUMBERS OR n 

-iJLLrETTERS?" 
1710 GOSUB 10000 
1720 IF XA$="N" THEN WC=49 :WC$= "NUMBERS" 

-i:GOTO 1800 
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1730 IF XA$="L" THEN WC=1 :WC$=" LETTERS " ; 

-.GOTO 1800 
1740 XX$="PLEASE TYPE N OR L": 

-.GOTO 1710 
1800 XX$="HOW MANY "+WC$+"? (3 TO 9)" 
1810 GOSUB 10000 
1820 M=VAL(XA$) :IF (9-M)*(M-3)<0 THEN -. 

-.1800 
2000 GOSUB 6000 :REM GET A LIST 
2100 GOSUB 4000 
2110 IF WIN=1 THEN 3000 
2120 PRINT "fi":GOTO 2000 
3000 T=T+1 
3100 IF T=l THEN PRINT "THERE'S THE -. 

-.LIST TO START WITH..." 
3120 XX $= "REVERSE HOW MANY?" 
3150 GOSUB 10000 
3160 N=VAL(XA$) 
3170 IF XA$="0" THEN PRINT "fiBYE FOR -. 

-.NOW...tft":END 
3180 IF N>1 AND N<=M AND N=INT(N) THEN - 

-.3200 
3190 M$=STR$(M) :XX$="TYPE A WHOLE -. 

-.NUMBER FROM 2 TO"+M$:GOTO 3150 
3200 IF T=l THEN PRINT "h, 

n 

3210 GOSUB 5000 

3300 GOSUB 4000 

3310 IF WIN=1 THEN 3000 

3320 GOTO 4200 

4000 REM TEST FOR WIN 

4100 WIN=0 

4110 FOR J=0 TO M-2 

4120 :C1=PEEK(FNL(J) ) :C2=PEEK (FNL ( J+l) ) 

4130 :IF C2-C101 THEN WIN=1 

4140 NEXT 

4150 RETURN 

4200 REM CELEBRATE 1 

4210 FOR J=l TO 6 

4220 : print "hiHi^UHHiH " ; 

423 : PRINT " CONGRATULATI- 
ONS " 
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4240 :FOR K=l TO 300:NEXT 

4250 :IF j/2<>INT(j/2) THEN PRINT n x.";: 

iGOTO 4270 
4260 :PRINT "r"; 
4270 NEXT 

4300 FOR J=l TO 500:NEXT 
4310 PRINT "^THE LIST IS NOW IN PROPER -. 

-.ORDER." 
4320 PRINT "\HT TOOK YOU";T; "TR"; 
4330 IF T=l THEN PRINT "Y.":GOTO 4400 
4340 PRINT "IES." 

4400 XX$="WANT TO PLAY AGAIN? (Y OR N) " 
4410 GOSUB 10000 
4420 IF XA$= n Y" THEN T=0:PRINT "fi": 

-.GOTO 1700 
4450 PRINT "RWTHANKS FOR PLAYING -. 

-.^REVERSE? . " 
4460 PRINT "tBYE FOR NOW...": END 
5000 REM ROUTINE MOVES LETTERS 
5100 FOR J=0 TO N/2-1 
5102 :IF FLAG=1 THEN 5108 
5104 ::GET XA$:IF XA$<>"" THEN FLAG=1 : 

-.PRINT DN$; "PLEASE STANDBY FOR A -. 

-.MOMENT.. ." 
5108 :GOSUB 7100 
5110 :LL=FNL(J) :LS=PEEK(LL) 
5120 :RL=FNL(N-J-1) :RS=PEEK(RL) 
5130 :FZ=LL+80 
5200 :FOR K=l TO 2 
5205 ::GOSUB 7025 
5210 ::POKE LL,SP:POKE RL,SP 
5220 : :LL=LL-40:RL=RL+40 
5230 ::POKE LL,LS:POKE RL,RS 
5240 :NEXT K 
5250 :GOSUB 7100 
5300 :POKE LL,SP:POKE RL f SP 
5310 :LL=LL-3 9:RL=RL+39:POKE LL,LS: 

^POKE RL f RS 
5312 :FOR K=l TO 2 
5315 ::GOSUB 7025 
5320 ::POKE LL,SP:POKE RL f SP:LL=LL+1 : 

->RL=RL-1 
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5330 ::POKE LL,LS:POKE RL,RS 

5332 :NEXT K 

5335 :GOSUB 7025 

5340 :POKE LL,SP:POKE RL, SP:LL=LL+41 : 

-.RL=RL-41 
5350 -.POKE LL,LS:POKE RL,RS 
5360 :IF RLOFZ THEN 5250 
5370 :GOSUB 7100 
5400 :FOR K=l TO 2 
5410 ::POKE LL,SP:POKE RL,SP 
5420 : :LL=LL+40:RL=RL-40 
5430 ::POKE LL,LS:POKE RL,RS 
5440 :NEXT K 
5500 NEXT J 
5600 RETURN 
6000 REM MAKE A LIST 
6100 FOR J=l TO M 
6110 :X=INT(M*RND(1)) 
6120 :IF PEEK(FNL(X))<>32 THEN 6110 
6130 :POKE FNL(X) , J+WC-1 
6140 NEXT 
6200 RETURN 

7000 REM VARIOUS DELAYS 
7005 FOR Zl=l TO 5: NEXT: RETURN 
7010 FOR Zl=l TO 10: NEXT: RETURN 
7025 FOR Zl=l TO 25 : NEXT: RETURN 
7050 FOR Zl=l TO 50: NEXT: RETURN 
7100 FOR Zl=l TO 100: NEXT: RETURN 
9000 REM INSTRUCTIONS 
9100 PRINT "fiTHIS IS THE GAME OF -. 

-.iREVERSEr." 
9110 PRINT "*TO WIN, ALL YOU HAVE TO DO i 

-.IS ARRANGE" 
9120 PRINT "*A LIST OF NUMBERS OR -. 

-.LETTERS IN ORDER" 
9130 PRINT "*FROM LEFT TO RIGHT. HERE -. 

-.ARE TWO" 
9140 PRINT "^WINNING ARRANGEMENTS:" 
9150 PRINT "iiil 2 3 4 5 6 -i 

-.7 8 9" 
9160 PRINT "Hik B C D E F -. 

-.G H I" 
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9170 XX$= "PRESS rRETURNr TO CONTINUE" 

9180 GOSUB 10000 

9200 PRINT "fiTO MOVE, TELL ME HOW MANY -. 

-.(COUNTING" 
9210 PRINT HFROM THE LEFT) TO REVERSE. - 

-. FOR EXAMPLE," 
9220 PRINT "IF THE CURRENT LIST IS:" 
9230 PRINT "tfD C B A E F G" 

9240 print Hand you reverse 4, the -. 

-.result will be:" 
9250 print "wa b c d e f g" 
9260 print "*and you win!" 

9270 PRINT "ttfTO QUIT, REVERSE -. 

-.(ZERO) ." 
9300 XX$="PRESS xRETURNr TO BEGIN..." 
9310 GOSUB 10000 
9320 PRINT "fi": RETURN 
10000 REM GET A CHARACTER 
10010 IF XX$="" THEN 10200 
10100 PRINT DN$;XX$; 

10200 GET XA$:IF XA$<>"" THEN 10200 
10205 IF FLAG=0 THEN RETURN 
10210 GET XA$:IF XA$="" THEN 10210 
10220 REM 
10300 PRINT " 

->":REM LINE 10300 -. 

-.PRINT 40 DEL 
10310 RETURN 
READY . 



Watchperson 

by Mac Oglesby 
"I must go in and out."— George Bernard Shaw, Heartbreak House 



You've been appointed Watchperson for the Village of Ogle- 
boro. Your appointed duty is to patrol the streets without retracing 
any of your steps. The Village Elders have instructed you in no un- 
certain terms to cover all the streets, but not to turn around. You 
can revisit corners during your vigil but you can't repeat any part of 
your route. 

If you can accomplish this task successfully, you're in line for 
promotion to Senior Watchperson of the growing community of 
Kunktown. If you've patrolled the streets of Kunktown according to 
City regulations, you may be honored with the title of Master Watch- 
person. You are then qualified to patrol that thriving metropolis, 
Lindburg. 

To start, here's a map of Ogleboro: 
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WELCOME, WATCHPERSON. . . 

WANT INSTRUCT IONS? VES OR NO, PLEASE. 

You may choose where to start. Your computer traces the path 
your footsteps take as you carry out your appointed rounds. Plan 
your route carefully, or you might be demoted to Crocodile-Catcher 
or the Dragon Patrol! 

36 
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While you're studying the city map, here's a story. Once upon a 
time there was a town in Prussia named Konigsberg. The good burg- 
hers whiled away their afternoons watching people go back and 
forth across the seven bridges that connected the island of Kneiphof 
with the mainland by spanning two branches of the River Pregel. As 
they drank their beer they wondered if anyone could cross all seven 
bridges without retracing their steps. 

None of the inhabitants of Konigsberg ever figured it out. A 
Swiss mathematician named Leonhard Euler (1707-1783) solved the 
problem by drawing the world's first graph, thereby discovering sci- 
entific principles that led to the foundation of topology— the geome- 
try of distortion. What's more, he solved this problem even though 
he was almost blind and had his thirteen children playing around the 
house. Here's to Leonhard Euler— the inspiration for our puzzle, and 
an inspiration to us all! 

If you'd like to find out how Leonhard Euler crossed the Seven 
Bridges of Konigsberg, read his solution in "The Seven Bridges of 
Konigsberg," James Newman, The World of Mathematics, Vol. 1, 
New York, 1956. For more on topology, see the article by Richard 
Courant and Herbert Robbins in the same book. They also prove 
Euler's theorem for us. 

Oh, just in case you were wondering, here are bird's eye views 
of Kunktown and Lindburg: 



1 
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START WHERE? 

PICK ONE OF THE LETTERS SHOWN. 
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START WHERE? 

PICK ONE OF THE LETTERS SHOWN. 
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100 REM ***WATCHPERSON*** 

110 REM 

120 REM (C) MAC OGLESBY MARCH 1980 

130 REM 

140 REM LAST REVISED: 3/22/80 22:30 

150 REM 

160 REM COPYRIGHT 1980 BY MAC OGLESBY 

170 REM 

180 REM 

1000 REM INITIALIZATION 

1010 POKE 59468,12 : REM GRAPHICS MODE 

1020 DIM LC(25) ,DS(25),LS(25) 

1030 V$(l) = "j:OrGLE-\hK<««BORO" 

1040 V$(2)="x.KrUNK-^<«^<TOWN" 

1050 V$(3)= n £LflND-W«<K<BURG" 

1060 FOR J=l TO 4:READ DA( J) , DA$ ( J) : 

nNEXT:REM DIRECTION ALLOWED 
1070 DATA-40," N ",l f " E ",40," S ",-1, 

" w " 
1120 SP$=" 

1130 DH$="WWmWWWWmW 
1140 SOS="&&&&&&&&&&ft£, & &&&&&&&&&&&&&&& " 
1145 REM 
1150 ZZ$=" 

-.":REM LINE 1150 ZZ$=40 -i 

-iDEL 
1160 VN=l:GOSUB 8000 
1170 PRINT "Ji";DN$; "WELCOME, WATCHPERSON 

n 

-i . . . 

1180 XX$="WANT INSTRUCTIONS? YES OR NO, 

-. PLEASE." 
1190 GOSUB 10000 :N0$=XA$ 
1200 PRINT "fi"; 
1210 PRINT "AS WATCHPERSON, YOU'VE BEEN -. 

-.HIRED TO" 
1220 PRINT "^WALK ALL OF THE STREETS OF -. 

-.A VILLAGE" 
1230 PRINT "^WITHOUT RETRACING ANY OF i 

-.YOUR STEPS." 
1240 PRINT "WCHOOSE A VILLAGE: -. 

-.iOfGLEBORO, xKrUNKTOWN," 
1250 PRINT "*OR JlLrlNDBURG. LINDBURG -. 

-iIS THE HARDEST." 
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1260 XX$= n PLEASE TYPE 0, K, OR L" 

1270 GOSUB 10000 

1280 IF XA$="0" THEN VN=1:G0T0 1300 

1285 IF XA$="K" THEN VN=2:G0T0 1300 

1290 IF XA$="L" THEN VN=3:G0T0 1300 

1295 XX$="x"+XX$:GOTO 1270 

1300 IF N0$="N" THEN 1470 

1305 A$= "FOOTPRINTS" 

1310 PRINT "fi^»»»»»»»>»»»»» 

1315 FOR J=l TO LEN(A$) :PRINT MID$(A$,J, 

-.1);:G0SUB 7025: NEXT 
1320 A0=32951: POKE A0,87 
1340 FOR J=l TO 12:G0SUB 7025 : A0=A0-1 : 

-.POKE A0, 87: NEXT 
1350 FOR J=l TO 4:G0SUB 7025 : A0=A0-40 : 

-.POKE A0, 87: NEXT 
1360 FOR J=l TO 9:G0SUB 7025 : A0=A0+1 : 

-.POKE A0 f 87:NEXT 
1370 FOR J=l TO 6:G0SUB 7025 : A0=A0+40 : 

-iPOKE A0, 87 .-NEXT 
1380 FOR J=l TO 15:G0SUB 7025:POKE A0-J, 

-.87: NEXT 
1390 FOR J=16 TO 18:G0SUB 7025:POKE -. 

-.A0-J, 46: NEXT 
1400 GOSUB 7200 
1405 print "irhhhhhhhW ; 

1410 PRINT "ALTHOUGH YOU MAY xNOTr WALK - 

-.TWICE ON" 
1420 PRINT "*ANY STREET, YOU xMAYf -. 

-.REVISIT CORNERS." 
1430 PRINT "^REMEMBER, YOUR TASK IS TO - 

-.WALK ALONG" 
1440 PRINT "ttALLr OF THE STREETS. -. 

-.GOOD LUCK!" 
1450 XX$="PRESS xRETURN? TO START..." 
1460 GOSUB 10000 
1470 GOSUB 8000 
1480 Z0=0 
1490 FOR J=l TO NC:POKE 32767+LC ( J) , J: 

-.NEXT 
1500 PRINT "Jl ,, ;DN$; ,, START WHERE?" 
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1510 XX$ = "PICK ONE OF THE LETTERS -. 

-.SHOWN." 
1520 GOSUB 10000 
1530 IF ASC(XA$)>64 AND ASC (XA$)<65+NC ■ 

-.THEN 1550 
1540 XX$="x"+XX$:GOTO 1520 
1550 Z0=32767+LC(ASC(XA$)-64) 
1560 XX$="TYPE X TO CANCEL STARTING -. 

-.POINT." 
1600 A$="" 
1610 FOR J=l TO 4 
1620 :IF PEEK(Z0+DA(J))=32 THEN -. 

-.A$=A$+DA$(J) 
1630 NEXT 
1700 PRINT "ii";DN$; ,, WALK WHICH WAY? -. 

-.CHOICES: ";A$ 
1710 GOSUB 10000 
1720 IF S>0 THEN 1740 
1730 IF XA$="X" THEN PRINT ZZ$;ZZ$;ZZ$: 

-.GOTO 1480 
1740 IF XA$="N" THEN D=-40 
1750 IF XA$="E" THEN D=l 
1760 IF XA$="S" THEN D=40 
1770 IF XA$="W" THEN D=-l 
1780 IF PEEK(Z0+D) <>32 THEN A$="jl"+A$: 

-.GOTO 1700 
1790 IF S>0 THEN 1825 
1800 FOR J=l TO NCrPOKE LC ( J) +32767 , 32 : 

-.NEXT 
1810 XX$="" 
1820 PRINT ZZ$;ZZ$; 
1825 PRINT ZZ$;ZZ$ 
1830 S=S+l:POKE Z0,87 
1840 CR=0 

1850 Z0=Z0+D:POKE Z0,87 
1855 S=S+1 
1860 FOR J=l TO 4 
1870 :IF PEEK(Z0+DA(J))=32 THEN CR=CR+1 

-.D1=DA(J) 
1880 NEXT 

1890 IF CR=0 THEN 1960 
1900 IF CR=1 OR CR=11 THEN D=D1 : 

-.GOTO 1840 
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1910 IF CR=10 THEN 2000 

1920 IF CR<5 OR CR=12 THEN D=0:GOTO 1600 

1960 IF PEEK(Z0+D)=87 THEN CR=10: 

-.GOTO 1850 
2000 REM END OF GAME CELEBRATION 
2050 A$="YOU WERE SUPPOSED TO WALK -. 

-.EVERY STREET ! " 
2100 IF S=TS THEN A$="EXCELLENTi I YOU -. 

iWALKED EVERY STREET ! I! " 
2110 FOR J=l TO 3 

2120 :POKE 59409, 52:REM SCREEN OFF 
2130 :FOR K=l TO 300: NEXT 
2140 :POKE 59409, 60:REM SCREEN ON 
2150 :FOR K=l TO 300:NEXT 
2160 NEXT 
2200 FOR J=l TO 5 
2210 :PRINT "li ,, ;DN$; A$ 
2220 :FOR K=l TO 300:NEXT 
2230 :IF j/2=INT(J/2) THEN PRINT "r n ;: 

-.GOTO 2250 
2240 : PRINT "x"; 
2250 NEXT 
2300 XX$="rPRESS xYr TO PLAY AGAIN; xNr -. 

iTO STOP." 
2310 GOSUB 10000 

2320 IF XA$="Y" THEN PRINT "fiRUN" :RUN 
2330 PRINT "fiTHANKS FOR WALKING MY -. 

iSTREETS . " 

2340 PRINT "f BYE FOR NOW, WATCHPERSON 

n 
-. . . . 

2350 END 

7000 REM VARIOUS DELAYS 

7025 FOR X9=l TO 25 : NEXT: RETURN 

7200 FOR X9=l TO 200 :NEXT:RETURN 

8000 REM READ VILLAGE DATA AND DRAW IT 

8010 IF VC=VN THEN 8200 

8100 READ LH f WH:REM LENGTH, WIDTH OF -. 

-.REVERSE FIELD 
8110 READ NC,TS:REM NUMBER OF CORNERS, 

-. TOTAL STEPS 
8120 FOR J=l TO NC:READ LC(J):NEXT: 

-.REM LOCATION OF CORNERS (HOME=l) 
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8130 READ NS:REM NUMBER OF STREETS TO -. 

-iDRAW 
8140 FOR J=l TO NS:READ DS(J),LS(J): 

-.NEXT: REM DIRECTION, LENGTH OF -i 

-.STREETS TO DRA 
8150 READ SD:REM START DRAWING WHERE? 
8160 VC=VC+l:GOTO 8010 
8200 PRINT "fi"; 
8210 A$=LEFT$(SP$, (40-LH)/2) +"x"+LEFT$ (S 

iQ$,LH) 
8220 FOR J=l TO WH: PRINT A$:NEXT 
8230 PX=32767+SD 
8240 POKE PX,32 
8250 FOR 1=1 TO NS 
8260 :FOR J=l TO LS(I) 
8270 : PX=PX+DS(I) .-POKE PX,32 
8280 :NEXT J 
8290 NEXT I 
8300 FOR J=l TO NCrPOKE 32767+LC ( J) , J: 

-.NEXT 
8310 PRINT "li»»N\H:bK«w-.£-ETK<<L\Ms" 
8320 PRINT "tWMAP\W<«OFM««";V$(VN) 
8400 RETURN 

9000 REM DATA FOR VILLAGES 
9100 REM OGLEBORO 
9110 DATA 22,17:REM LH,WH 
9120 DATA 14 f 120:REM NC f TS 
9130 DATA 56 f 65 f 171, 176,185,190, 336, 345, 

-.350, 496, 505, 510, 611, 625: REM LC ( ) 
9140 DATA 14: REM NS 
9150 DATA 1,19,40,8,-1,5,40,3,-1,14,-40, 

ill,l,5,40,8,l,14,-40,4 
9160 DATA -1,14,-40,7,1,9,40,10: 

-.REM DS() ,LS() 
9170 DATA 171: REM SD 
9200 REM KUNKTOWN 
9210 DATA 24,19:REM LH,WH 
9220 DATA 19,157 :REM NC,TS 
9230 DATA 54,63,67,170,174,183,187,191, 

-,334,343,347 
9235 DATA 454,463,467,570,574,583,694, 

-.711: REM LC() 
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9240 DATA 14:REM NS 

9250 DATA 1, 21 , 40,13 ,-1 , 17 f -40 , 6 , 1 , 13 , 

-.-40, 10, -1,13 f 40,7 f 1,13 
9260 DATA -40,7,-1,4,40,13,-1,13,-40,10: 

-.REM DS() ,LS() 
9270 DATA 170:REM SD 
9300 REM LINDBURG 
9310 DATA 28,20: REM LH,WH 
9320 DATA 25,195:REM NC,TS 
9330 DATA 56,65,69,73,172,176,185,189, 

-.328,332,336,345,349 
9335 DATA 492,496,505,509,612,616,625, 

-,629,728,732,736,753:REM LC() 
9340 DATA 20: REM NS 
9350 DATA 1,21,40,7,-1,17,40,3,-1,4,-40, 

-.10,1,4,40,4,1,17,40,3,-1,4 
9360 DATA -40,14,-1,9,40,17,1,17,-40,17, 

-.-1,4,40,3,-1,17,40,4:REM DS ( ) ,LS() 
9370 DATA 328:REM SD 
10000 REM GET A CHARACTER 
10050 PRINT n ir;DN$; n W; 
10100 IF XX$<> ,,,, THEN PRINT XX$ 
10200 GET XA$:IF XA$<> ,,n THEN 10200 
10300 GET XA$:GOSUB 10500: IF XA$= n " -. 

-iTHEN 10300 
10350 RETURN 
10500 REM BLINK 
10600 IF Z0=0 THEN 10700 
10610 IF TI-TT<20 THEN 10700 
10620 IF PEEK(Z0)+128<256 THEN POKE Z0, 

-.PEEK (Z0) +128: GOTO 10690 
10630 POKE Z0,PEEK(Z0)-128 
10690 TT=TI 
10700 RETURN 
READY. 



Square 

by Mac Oglesby 

How well do you relate to squares? (No, we're not talking about 
the older generation!) In this game for one or two players, you must 
choose the four corners of a square. You're given a playing field 
sprinkled with letters: 

ft B C n E 

F G H I J 

K L M W 

P Q R S T 

U V W X V 

WANT INSTRUCTIONS FOR HMIfilsl4? <V OR N 

You choose a letter and the computer marks it with your symbol. 
For instance, if you choose M and your symbol is X, the screen will 
look like: 

fl B C D E 

F G H I J 

K L 6 N 

P Q R S T 

U V W X V 

THE H-S CHOOSE WHICH POINT? 

45 
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So far, so good. Finding four corners may sound like a relatively sim- 
ple task, but your computer/opponent will block you every chance it 
gets, or cut corners to beat you to the finish line. Your computer 
plays very well indeed, but not perfectly. You can beat it. 

Think square to win this game— any size square— even tilted 
squares. There are more squares on your playing field than you ever 
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thought possible! You may choose whether you or the computer go 
first in this Level B-C game. When you or the computer win (and 
we're sure you'll plunge into this game with determination and win), 
the computer will flash arrows under the winning corners to show 
you a successful square. 
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100 REM *** SQUARE *** 

110 REM 

120 REM (C) 1980 MAC OGLESBY 

130 REM LAST REVISION 2/10/80 12:15 

140 REM 

150 REM CHANGED 3/2/80: REMOVED 

160 REM SCREEN PRINT OPTION 

200 REM 

210 REM CHANGED 3/28/80: FIXED BUG IN 

220 REM LINE 1270: (HOXQ WAS HOXG) 

230 REM 

240 REM ALSO REMOVED ALL LOWERCASE 

250 REM 

1000 REM INITIALIZATION 

1005 GOTO 1010 

1006 X=l 

1010 POKE 59468,12 

1020 DIM Q%(50) ,V%(50) ,SQ$(50) ,SW$(24) , 

-.D$(4,4),U(12),PL$(2) 
1030 PL$(l) = n iY? n :PL$(2)= ,, £0;r" 
1040 TN=1:F=1 

1100 zd $= "WtWWttt wwmmm ■ 

1120 REM 

1130 ZZ$=" 

it 

-i 

1140 REM LINE 1130 IS ZZ$="40 DELETES" 
1200 REM SQ$() SPECIFIES SQUARES' -. 

-■CORNERS 
1210 FOR J=l TO 50:READ SQ$(J):NEXT 
1220 DATA ABGF,ACMK, ADSP, AEYU,BCHG,BDNL 
1230 DATA BETQ,BHLF,BIRK,BJXP,CDIH,CEOM 
1240 DATA CIMG,COWK,CJSL,CNQF,DEJI,DJNH 
1250 DATA DORG,DTVF,FGLK,FHRP,FIXU,GHML 
1260 DATA GISQ,GJYV,GMQK,GNWP,HINM,HJTR 
1270 DATA HNRL,HOXQ,HSVK, IJON, ISOM, ITWL 
1280 DATA KLQP,KMWU,LMRQ,LNXV,LRVP,MNSR 
1290 DATA MOYW,MSWQ,NOTS,NTXR,PQVU,QRWV 
1300 DATA RSXW,STYX 
1310 REM SW$() TELLS WHICH SQUARES FROM 

-iLIST SQ$ HAVE A CORNER AT EACH -. 

-.POINT 
1320 FOR J=0 TO 24:READ SW$(J):NEXT 
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1330 DATA " !"#$ ", " !%&' I) * "." "%+. -./0 ". 

1340 DATA " 1 (04567 ", " i%-3589: :< ", 
-,"%(+268=>?(aA" , ")+- 17 9= gC D" , 

^" */1 2 :>B " 

1350 DATA ' "M .5:AEF "." &(/58?DEGHI " f 

V' ".-8;=CFGJKL "." &02<=?BHJMN n . 

-," , .30BCKM " 
1360 DATA " #*6<EIO "." '09:(aEGLQP ". 

-," ) 36>?GIJNPO " . " #/9ACJLM0R " f 

-," '4>DMNR " 
1370 DATA " $7FO "," 4:AHIQP "." .<DFKLPO ". 

-." *7(aHN0R "." $:KR " 
1500 FOR J=0 TO 4: FOR K=0 TO 4 
1510 :D$(J,K)=CHR$(65+K+J*5) 
1520 NEXT: NEXT 
2000 REM 
2050 GOSUB 8000 
2060 IF X=l THEN 2200 
2100 XX$="WANT INSTRUCTIONS FOR -. 

-.XSQOAREf? (Y OR N) " 
2110 GOSUB 10000: IF XA$="Y" THEN GOSUB -. 

i9000 
2200 XX$="HOW MANY HUMAN PLAYERS? (1 OR i 

-.2)" 
2210 GOSUB 10000: IF XA$="1" THEN PL=1 : 

-.GOTO 2300 
2220 IF XA$="2 n THEN PL=2:GOTO 2500 
2230 XX$= n JL n +XX$:GOTO 2210 
2300 PRINT n Ji n ;ZD$; n OK f I'LL PLAY THE -. 

-.X^r'S":FOR J=l TO 2000: NEXT 
2400 XX$="WHO GOES FIRST, xYrOU OR THE -. 

-.XCfOMPUTER?" 
2410 GOSUB 10000: IF XA$="Y" THEN F=2: 

-.GOTO 2500 
2420 IF XA$="C" THEN TN=2:GOTO 2500 
2430 XX$="PLEASE TYPE Y OR C" : 

-.GOTO 2410 
250 REM 
3000 REM 

3100 TN=3-TN:N=N+1 
3110 IF TN=2 OR PL=2 THEN 5000 
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3115 IF N<3 THEN 3200 

3120 PRINT "Ji";ZD$; ,, iI , M FIGURING OUT MY • 

-.MOVE...f n 
3200 IF N>2 THEN 3300 
3210 IF D$(2,2)="M n THEN R1=2:C1=2: 

-.GOTO 4500 
3220 Q0=9:GOTO 3400 
3300 IF N>4 THEN 3800 
3310 IF F=2 THEN Q0=19 
3400 K9=0 

3410 FOR Jl=l TO 50 
3420 :IF Q%(J1)O1+Q0 THEN 3440 
3430 :K9=K9+1:U(K9)=J1 
3440 NEXT Jl 
3450 IF K9=0 THEN 3720 
3500 J2=K9 

3510 :T9=1+INT(J2*RND(3) ) :J1=U(T9) 
3520 :K1=1 
3530 : :X$=MID$(SQ$(J1) f Kl,l) :X=ASC(X$)-6 

-.5 
3540 ::Rl=INT(X/5) :C1=X-5*R1 
3550 ::IF D$ (Rl , CI) =PL$ (1) OR D$(R1, 

-.C1)=PL$(2) THEN 3640 
3560 ::IF Q0+N>4 THEN 4500 
3570 ::M0=0 

3580 ::FOR J3=l TO LEN(SW$(X)) 
3590 : ::Z$=MID$(SW$(X) ,J3,1) :Z=ASC(Z$)-1 

-.60 
3600 :::IF Q%(Z)>1 THEN 3620 
3610 :::M0=M0+1 
3620 : :NEXT J3 
3630 ::IF M0=>7 THEN 4500 
3640 :IF KK4 THEN Kl=Kl+l:GOTO 3530 
3700 :T8=U(J2) :U(J2)=U(T9) :U(T9)=T8 
3710 IF J2>1 THEN J2=J2-l:GOTO 3510 
3720 Rl=INT(5*RND(l) ) :C1=INT (5*RND(1) ) 
3730 IF D$(Rl,Cl)OPL$(l) AND D$(Rl, 

-.Cl)OPL$(2) THEN 4500 
3740 GOTO 3720 
3800 Jl=l 

3810 :IF Q%(J1)=3 THEN 3520 
3820 IF JK50 THEN Jl=Jl+l:GOTO 3810 
3900 Jl=l 
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3910 :IF Q%(J1)=30 THEN 3520 

3920 IF JK50 THEN Jl=Jl+l:GOTO 3910 

4000 K9=0 

4010 FOR Jl=l TO 50 

4020 :IF Q%(J1)=2 THEN K9=K9+1 :U (K9) =J1 

4030 NEXT Jl 

4040 IF K9=0 THEN 4410 

4100 10=1 

4110 :J0=K9 

4120 : :M9=1+INT(J0*RND(1) ) :J1=U(M9) :T9=0 

4130 ::FOR Kl=l TO 4 

4140 :::X$=MID$(SQ$(Jl),Kl,l) :X=ASC(X$)- 

-.65:Rl=INT(X/5) :C1=X-5*R1 
4150 :::IF D$ (R1,C1) =PL$ (1) OR D$(R1, 

-.C1)=PL$(2) THEN 4170 
4160 :::T9=T9+1:R(T9)=R1:C(T9)=C1 
4170 : :NEXT Kl 
4180 ::J2=1 
4190 :::FOR J3=l TO 50 :V% ( J3) =Q% ( J3) : 

-•NEXT J3 
4200 :::X=5*R(J2)+C(J2) 
4210 :::FOR J3=l TO LEN(SW$(X)) 
4220 : : : : Z$=MID$ (SW$ (X) , J3,l) :Z=ASC(Z$)- 

-.160 
4230 ::::V%(Z)=V%(Z)+1 
4240 :: :NEXT J3 
4250 :::X=5*R(3-J2)+C(3-J2) 
4260 :::FOR J3=l TO LEN(SW$(X)) 
4270 ::::Z$=MID$(SW$(X) , J3 f l) :Z=ASC(Z$)- 

-.160 
4280 ::::V%(Z)=V%(Z)+10 
4290 : : :NEXT J3 
4300 :::J3=1 
4310 ::::IF V%(J3)=4-I0 THEN Rl=R(J2) : 

-.C1=C(J2) :GOTO 4500 
4320 :::IF J3<50 THEN J3=J3+1:G0T0 4310 
4330 ::IF J2=l THEN J2=2:GOT0 4190 
4340 : :T8=U(J0) :U(J0)=U(M9) :U(M9)=T8 
4350 :IF J0>1 THEN J0=J0-1:GOTO 4120 
4360 IF 10=1 THEN 10=2 -.GOTO 4110 
4400 Jl=U(l+INT(K9*RND(l))) :GOTO 3520 
4410 Q0=19:GOTO 3400 
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4500 A$=D$(R1,C1) 

4505 PRINT n Ji n ;ZD$; I, j:HERE I S MY MOVE...r ■ 

4510 FOR J3=l TO 2 

4520 :D$(R1,C1)=PL$(1) :PRINT "Ji";: 

-.GOSUB 8090 
4530 :D$(R1,C1)=A$:PRINT "h"; :GOSUB 8090 
4550 NEXT J3 
4560 X=5*R1+C1 
4600 GOTO 5400 
5 000 REM GET HUMAN'S MOVE 
5100 XX$="THE "+PL$(TN)+ n, S CHOOSE -. 

-.WHICH POINT?" 
5110 GOSUB 10000 
5200 X=ASC(XA$)-65:IF X=>0 AND X<25 -i 

-.THEN 5300 
5210 XX$="ILLEGAL MOVE, "+PL$ (TN) +" . -. 

-.TRY AG A IN...": GOTO 5110 
5300 Rl=INT(X/5) :C1=X-5*R1:IF D$(R1, 

-.Cl)<>"xYr" AND D$(Rl,Cl)O"£0_r" -i 

-.THEN 5400 
5310 XX$="THAT POINT IS TAKEN! PICK -. 

-nANOTHER.. .":GOTO 5110 
5400 D$(R1,C1)=PL$(TN) 
5410 PRINT "Ji";:GOSUB 8090 
5500 FOR J=l TO LEN(SW$(X)) 
5510 Z$=MID$(SW$(X) , J,l) :Z=ASC(Z$)-160 
5520 :Q%(Z)=Q%(Z)+1+(TN-1)*9 
5530 :IF Q%(Z)<>4+(TN-1)*36 THEN 5570 
5540 GOTO 7000 
5570 NEXT J 
5580 IF N=24 THEN PRINT "Ja"; ZD$; "THIS -. 

-iGAME IS A DRAW...": GOSUB 10300 
5600 GOTO 3000 
7000 REM WRAP IT UP 
7010 A$="THE "+PL$(TN)+ n, S " 
7020 IF PL=1 AND TN=1 THEN A$="I " 
7025 IF PL=1 AND TN=2 THEN A$="YOU " : 

-.GOSUB 7500 .-GOSUB 8000 
7045 A$=A$+"xWINr WITH SQUARE *** -. 

-."+SQ$(Z)+" ***" 
7050 FOR J=l TO 4 
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7055 :X$=MID$(SQ$(Z) ,3,1) :X=ASC(X$) -65 
7060 :P0=40*(l+5*INT(X/5))+6*(X-5*(INT(X 

V5)))+6 
7070 :POKE 32768+P0 f 30 
7080 NEXT J 

7090 FOR J=l TO 500:NEXT J 
7100 PRINT "Ji ,, ;ZD$;A$ 
7105 FOR J=l TO 500:NEXT J 
7110 FOR J=l TO 4 
7120 :POKE 59409,52 
7130 :FOR K=l TO 400:NEXT 
7140 :POKE 59409,60 
7150 :FOR K=l TO 400:NEXT 
7160 NEXT 

7170 FOR J=l TO 2000: NEXT 
7180 XX$="^»»»»PRESS RETURN TO -. 

-.PLAY AGAIN..." 
7200 GOSUB 10000 
7210 IF ASC(XA$)=13 THEN PRINT "fiRUN": 

-.RUN 1006 
7300 PRINT "fiThWTHANKS FOR PLAYING i 

-.JLSQUAREr WITH ME..." 
7310 PRINT n ThW»»TYPE RUN TO PLAY -. 

-.AGAIN.***" 
7320 END 
7500 PRINT "fi"; 
7510 F$=". .+«+t«JM TT":D$= "****«<«" 

7520 R=9:D=5:L=8:U=4 

7530 FOR J=l TO 3 

7540 :FOR K=l TO R:PRINT F$;:NEXT 

7550 :FOR K=l TO D:PRINT D$;F$;:NEXT 

7560 :FOR K=l TO LtPRINT L$;F$;:NEXT 

7570 :FOR K=l TO U:PRINT U$;F$;:NEXT 

7580 :R=R-2:D=D-2:L=L-2:U=U-2 

7590 NEXT J 

7600 FOR J=l TO 200: NEXT: RETURN 

8000 REM PRINT BOARD 

8010 PRINT "fi"; 

8090 FOR J=0 TO 4: PRINT n »»» ,, ; 

8100 :FOR K=0 TO 4 

8120 : PRINT D$(J,K);: IF K<4 THEN i 



iPRINT "»»»"; 
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8130 :NEXT K 

8140 :IF J<4 THEN PRINT "Wtt" 

8150 NEXT J 

8200 RETURN 

90 00 REM INSTRUCTIONS 

9110 PRINT "fi"; 

9200 PRINT "YOU WIN AT iSQUAREr BY -. 

-.PICKING FOUR*" 
9210 PRINT "LETTERS WHICH COULD BE -. 

-.CORNERS OF A*" 
9220 PRINT "SQUARE. THE COMPUTER PLA: 

-.WELL, BUT*" 
9230 PRINT "NOT PERFECTLY, AND YOU -. 

-.JLCANf BEAT IT! 1 I" 
9400 XX$="PRESS iRETURNr TO START..." 
9500 GOSUB 10000 .-GOSUB 8000:RETURN 
10000 REM GET 
10200 PRINT "Ji ,, ;ZD$;XX$; 
10300 GET XA$:IF XA$<>"" THEN 10300 
10310 GET XA$:IF XA$= n " THEN 10310 
10330 PRINT ZZ$;"r" 
10400 RETURN 
READY. 



Motie 

by Mac Oglesby 

You have only 200 seconds in which to saye the world. Our uni- 
verse's only defense against the invading Moties are three Guardian 
starships. The moves they make during this cosmic life-and-death 
struggle are entirely up to you. 

The Motie's starting position changes randomly with every game, 
so your defensive/offensive strategy had better be flexible. Here's an 
example of the beginning of a Motie assault: 
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WANT INSTRUCTIONS FOR iMMfaf <V OR Nr? 



The Motie can go in any direction as it alternately attacks and 
evades. Your Guardian starships may move forward or sideways, but 
they can never move backwards. Once you've let the Motie penetrate 
your defenses there is no turning back, and time is running out! 
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GUARDIAN'S MOVE... 



The Mo tie wins (perish the thought!) if it reaches position A on 
your screen. The Guardians win if they can pin down the Motie and 
prevent it from moving, in 200 seconds or less. 

The stakes for winning or losing this game have always been 
high— Motie is based on "The Soldier's Game," better known as the 
"French Military Game." During the Franco-Prussian War in the 
1870s, French officers played this game to sharpen their strategic 
skills on the real battlefield. 

In the original version, the invading forces win if they slip be- 
hind enemy lines, making it impossible for the guardians to pin them 
down, or if the opponents reach a stalemate during which they re- 
peat the same moves endlessly (an accurate prediction of World War I). 
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THE GUARDIANS WIN; THE MOTIE IS TRAPPED! 
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Says Martin Gardner in The Sixth Book of Mathematical Games 
from Scientific American-. "This game is as simple to learn as Tic Tac 
Toe but more exciting and difficult to analyze." There is no simple 
strategy. The best move could look like the worst, since "the game 
abounds in traps and surprises." Due to the serious nature of the con- 
sequences to Planet Earth, this is definitely a C game. 



(Mac's inspiration for Motie is from an excellent science fiction novel: The 
Mote in God's Eye by Larry Niven and Jerry Pournelle.) 



58 PLAN-AHEAD GAMES 

100 REM *** MOTIE *** 

110 REM 

120 REM (C) MAC OGLESBY 2/2/80 

130 REM 

140 REM COPYRIGHT 1980 BY MAC OGLESBY 

160 REM 

170 REM CHANGED 3/29/80: REMOVED LOWER 

180 REM CASE AND FIXED BUG LINE 4220. 

190 REM CHANGED 5/11/80: COUNTS DOWN 

200 REM 

1000 REM *** INITIALIZATION 

1010 POKE 59468,12: REM GRAPHICS MODE 

1020 TL=200: REM GAME TIME LIMIT IN -i 

-.SECS. 
1100 DIM DN(ll) ,RT(11) f PE%(ll,8) ,BD$(4) 
1200 FOR J=l TO 11: READ DN( J) ,RT(J) : 

-. NEXT J 
1210 DATA 8,5,1,12,8,12,15,12,1,19,8,19 
1220 DATA 15,19,1,26,8,26,15,26,8,33 
1300 REM 

1310 FOR J=l TO 11: FOR K=l TO 8 
1320 : READ PE%(J f K) 
1330 NEXT K: NEXT J 
1340 DATA 2,3,4,0,0,0,0,0 
1342 DATA -1,3,5,6,0,0,0,0 
1344 DATA -1,2,4,6,0,0,0,0 
1346 DATA -1,3,6,7,0,0,0,0 
1348 DATA -2,6,8,0,0,0,0,0 
1350 DATA -2,-3,-4,5,7,8,9,10 
1352 DATA -4,6,10,0,0,0,0,0 
1354 DATA -6,-5,9,11,0,0,0,0 
1356 DATA -6,8,10,11,0,0,0,0 
1358 DATA -6,-7,9,11,0,0,0,0 
1360 DATA -8,-10,-9,0,0,0,0,0 
1500 GH$= n Ll=lt<«=>=+«<rlL.=rl n 
1510 MT$="###TK««#»H<««### n 
1520 EY$= n E$M<«k>lA*«n§]& n 
1530 Ll$="HTUT2lTir: L2$= n M.tM.tM.tM n : 

-. L3$="MM": L4$= n li<at<l*<L n 

1600 dn$= n imititiWimiiiiiM+t " 

1610 RT$= n »»»»»»»»»»»»»»» 

1620 DW$=LEFT$(DN$,18) 
1624 REM 
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1630 DD$=" 

1640 REM LINE 1630 IS DD$=[40 DELETES] 

1700 P$(1)="M0TIE'S" 

1710 P$( 2)= "GUARDIAN'S" 

1750 BD$(0)="GGOGOOOOOOO" 

1760 BD$(l)="GGOGOOOOOOM" 

1770 BD$(2)="OGOOMGOGOOO" 

1780 BD$(3)="OOOGOGMOOGO" 

1790 BD$(4)="OOOOOOOGGGM" 

1820 GOSUB 8000 

1840 XX$="WANT INSTRUCTIONS FOR nMOTIEr -. 

-.(Y OR N)?" 
1850 GOSUB 10000 
1860 IF XA$<>"Y" THEN 1900 
1870 GOSUB 9000: GOSUB 8000 
1900 BD$(1)=BD$(0) 
2000 GOSUB 8600 
2100 XX$="HOW MANY HUMAN PLAYERS (1 OR -. 

-,2)?" 
2110 GOSUB 10000 
2120 IF XA=2 THEN PL=2 : 
2130 IF XA=1 THEN PL=1: 
2140 XX$="j: n +XX$: GOTO 
2160 X=3 + INT(RND(1)*9) : 
2190 GOTO 2320 
2200 XX$="WHERE IS THE 

-iSPOTTED?" 
2210 GOSUB 10000 
2220 IF XA$>"D" AND XA$<"L" OR XA$?="C" -. 

-.THEN 2250 
2230 XX$="PICK FROM LOCATIONS xCf JiEr -. 

-.JlFr iGf iHr ilf xJr jlK": GOTO 2210 
2250 X=ASC(XA$)-64 
2320 BD$(1)=LEFT$(BD$(0) , X-l) +"M"+MID$ (B 

-.D$(0) ,X+1,11-X) 
2330 TN=1 
2340 TI$="000000" 
2400 GOSUB 8600 
3000 REM ** GAME LOOP 
3010 BD$(0)=BD$(1) 
3100 TN=3-TN 

3110 IF PL=2 OR TN=2 THEN 4000 
3200 REM COMPUTER MOVES MOTIE 



GOTO 
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3300 FOR J=l TO 11 

3310 : IF MID$(BD$(0) ,J,1)="M" THEN 3350 

3320 NEXT J 

3350 FOR K=l TO 8 

3360 : X=ABS(PE%(J f K) ) : IF X<1 THEN 3380 

3370 : IF MID$(BD$(0) ,X,1)="0" THEN 3400 

3380 NEXT K 

3400 IF BD$(0)= n OOOOGGOMOGO n THEN X=ll 

3410 IF BD$(0)="OOOOOGGGOMO" THEN X=ll 

3500 GOTO 5000 

4000 REM GET HUMAN'S MOVE 

4050 XX$=P$(TN)+" MOVE..." 

4055 PRINT "Jl";LEFT$(DN$,20) ;RT$;DD$ 

4060 GOSUB 10000 

4070 A$= nn 

4080 IF XA$<"A n OR XA$>"K" THEN XA$="Z" 

4100 if TN=2 THEN 4200 

4110 FOR J=2 TO 11 

4120 : IF MID$(BD$(0) ,Jfl) = ,, M" THEN -. 

-«A$=CHR$(j+64) : GOTO 4600 
4130 NEXT J 

4200 REM CHECK IF LEGAL MOVE 
4210 IF MID$(BD$(0),ASC(XA$)-64, 

-.1)=LEFT$(P$(TN) ,1) THEN 4280 
4220 FOR J=l TO 11 
4230 : if MID$(BD$(0) , J,l)<>"G n THEN -. 

i4250 
4240 : A$=A$+" x."+CHR$(64+J) + ,, £" 
4250 NEXT J 

4260 XX$= "GUARDIANS ARE AT n +A$ 
4270 GOTO 4060 
4280 A$=XA$ 
4300 J=ASC(A$)-64 
4310 FOR K=l TO 8 

4320 : Z=PE%(J,K): IF Z<1 THEN 4370 
4330 : IF MID$(BD$(0) , Z,1)="0" THEN 4420 
4370 NEXT K 
4380 XX$="THAT GUARDIAN CAN'T MOVE. -i 

iTRY ANOTHER." 
4390 GOTO 4060 

4420 XX$="MOVE £ n +A$+"r WHERE?" 
4430 PRINT "Ji";LEFT$(DN$,20) ; "PRESS xXf - 

-■TO CANCEL A MOVE." 
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4500 GOSUB 10000 

4510 IF XA$="X" THEN 4000 

4530 IF XA$<"A" OR XA$>"K n THEN XA$="Z n 

4590 J=ASC(A$)-64 

4600 X=ASC(XA$)-64 

4605 B$= nn 

4610 FOR K=l TO 8 

4620 : Z=PE%(J,K): IF TN=1 THEN Z=ABS(Z) 

4630 : IF Z<1 THEN 4690 

4650 : IF MID$(BD$(0) , Z,1)<>"0" THEN -. 

i4690 
4660 : IF Z=X THEN 5000 
4670 : B$=B$+" x"+CHR$ ( Z+64) +"f " 
4690 NEXT K 

4700 IF LEN(B$)>4 THEN 4800 
4710 XX$= ,, x"+A$+ n f CAN ONLY MOVE TO "+B$ 
4720 GOTO 4500 
4800 XX$="LEGAL MOVES FOR i n +A$+ n f -. 

-.ARE"+B$ 
4810 GOTO 4500 
5000 REM *** UPDATE BOARD & CHECK FOR -. 

-iEND 
5050 PRINT "h n ;DW$;RT$;DD$; I, H";RT$;DD$ 
5100 BD$(l)= n " 
5110 FOR K=l TO 11 

5120 : IF KOJ AND KOX THEN 5180 
5130 : IF K=J THEN BD$ (1)=BD$ (1) +"0" : 

-, GOTO 5200 
5140 : BD$(1)=BD$(1)+LEFT$(P$(TN) ,1) : 

-. GOTO 5200 
5180 : BD$(1)=BD$(1)+MID$(BD$(0) ,K,1) 
5200 NEXT K 
5210 GOSUB 8600 
5290 IF X=l THEN A$= "HEAVEN HELP US! -. 

-.THE MOTIES ARE LOOSE!! I " : GOTO -. 

i7000 
5300 FOR J=2 TO 4 

5310 : IF BD$(l)OBD$(J) THEN 5400 
5320 : A$="THE GUARDIANS WIN; THE MOTIE - 

-iIS TRAPPED!": GOTO 7000 
5400 NEXT J 
5500 GOTO 3000 
7000 REM 
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7100 FOR J=l TO 3 

7110 : POKE 59409,52: REM SCREEN OFF 

7120 : FOR K=l TO 300: NEXT K: REM DELAY 

7130 : POKE 59409,60: REM SCREEN ON 

7140 : FOR K=l TO 300: NEXT K 

7150 NEXT J 

7200 PRINT "ir;DW$;RT$;DD$ 

7300 FOR J=l TO 6 

7310 : PRINT "]i";DW$; 

7320 : PRINT A$; 

7330 : FOR K=l TO 300: NEXT K 

7340 : IF j/2=INT(j/2) THEN PRINT "r";: 

-. GOTO 7350 
7345 PRINT "x"; 
7350 NEXT J 
7400 PRINT 
7500 PRINT "r" 
7510 PRINT "PRESS xRETURNf TO PLAY -. 

-.AGAIN. . . " 
7520 PRINT 
7530 PRINT "PRESS ANY OTHER KEY TO -. 

-.STOP." 
7540 TN=0 
7600 GOSUB 10130 

7610 IF ASC(XA$)<>13 THEN PRINT "fi": END 
7620 RUN 

8000 REM *** PRINT BOARD 
8100 PRINT "fi"; 

8200 print n iHiiiEi<ui<m<Ai<iai<s n 

8210 PRINT "Ji";LEFT$(RT$ f 39) ; n ^ttt^tM^<0 

8400 PRINT "ht»»»»»»» ";L3 $;">»" ; 

->L3$ 
8410 PRINT "]iWWW»»»»» n ;Ll$;"»»";L2 

-,$;"»>"; LI $;">»";L2$ 
8420 PRINT "2itttThhhW»»»» ";L3 $;"»»" ; 

-.L3 $;"»>" ; L3$;"»»";L3$ 
8430 PRINT "JitttWWWt»»»»»»";L2$; ,, »» 

-.";L1$;"»>";L2$;"»»";L1$ 
8440 PRINT "Mtt»»»»»»";L4$;"ttt^ 

-.";L4$;"^>";L3$ 
8450 PRINT "IiHt»»»»»»»»>»";L4$ 

-;"ttt^ n ;L4$;"n>";L3$ 
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8460 PRINT "J!^t>»»»»»»»»»»»» 

-!» " ; L4 $ ; " W^H " ; L4 $ 
8500 PRINT "JulTIME" 
8600 FOR J=l TO 11: REM HERE TO UPDATE -, 

-.THE BOARD 
8610 PRINT "Ji"; 
8620 PRINT LEFT$(DW$,DN(J) ) ; LEFT$(RT$, 

-.RT(J)); 
8650 PRINT "T^ n ; 
8660 IF MID$(BD$(1) , J,1)="G" THEN PRINT -. 

-.GN$; 
8670 IF MID$(BD$(1) ,J,1)="0" THEN PRINT -. 

-•EY$; 
8680 IF MID$(BD$(1) , J / l) = n M n THEN PRINT -. 

->MT$; 
8700 PRINT "T^ n ;CHR$(64+J) 
8800 NEXT J 
8900 RETURN 

9000 REM *** INSTRUCTIONS 
9010 PRINT "fi"; 
9020 PRINT "^GUARDIANS*" 
9030 PRINT GN$;"»TT";GN$;"»TT n ;GN$ 
9040 PRINT "WMOTIEt" 
9050 PRINT MT$ 
9060 XX$= n ": GOSUB 10110 
9100 PRINT "fi"; 
9300 PRINT " THREE .cGUARDIANr -. 

-.STARSHIPS PROTECT THE*" 
9310 PRINT "HUMAN WORLDS FROM THE -. 

-.JlMOTIEr SHIP. THEf 
9320 PRINT "xMOTIESr WIN IF THEY REACH -. 

-.LOCATION xAr.t" 
9330 PRINT "THE iGUARDIANSr WIN BY -. 

-.TRAPPING THE iMOTIErt" 
9340 PRINT "SO IT CAN'T MOVE," 
9350 GOSUB 10110 
9360 PRINT "fi iGUARDIANSr AND THE -. 

-.jlMOTIEr MOVE ALONGf 
9370 PRINT "THE PATHWAYS SHOWN. THE -. 

-.iMOTIEr CAN GO IN" 
9380 PRINT "ANY DIRECTION, WHILE THE -. 

-.XGUARDIANSr CAN'T" 
9390 PRINT "MOVE BACKWARD (LEFT) . -. 

-.THERE ARE NOt" 
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9400 PRINT "JUMPS OR CAPTURES. t" 

9410 PRINT 

9420 PRINT "YOU WILL HAVE" ;TL; "SECONDS. • 

-. I.GOOD LUCKir" 
9700 GOSUB 10110 
9900 RETURN 
10000 REM GET 1 CHR 
10100 PRINT "Ji";DW$;RT$;DD$;: REM DD$ -i 

-iIS 40 DELETES 
10110 PRINT "Ji";DW$;: REM DW$ IS 18 -. 

-.CRSR DOWNS 
10120 IF XX$="" THEN XX$="PRESS -i 

-■JlRETURNr TO CONTINUE." 
10125 "PRINT XX$; 

10130 GET XA$: IF XA$<>"" THEN 10130: 
-. REM EMPTY BUFFER 

10131 IF TN=0 THEN 10140: REM SKIP THE -. 
iTIME 

10132 GET XA$: PRINT "Ji»»";: TE=INT(TI 
-./60) : PRINT STR$(TL-TE) ;" " 

10134 IF TE=>TL THEN A$= "YOU'VE RUN OUT - 
-.OF TIME...": GOTO 7000 

10138 IF XA$="" THEN 10132 

10139 GOTO 10150 

10140 GET XA$: IF XA$="" THEN 10140 
10150 XA=VAL(XA$) 

10160 PRINT "r"; 
10170 RETURN 
READY. 
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by Mac Oglesby 



Sinners gives you an idea of what the world will be like if you 
let the Moties take over. Your playing field is Purgatory— condemned 
Sinners (moved by you) vs. three of Satan's Fiends. These Fiends 
thrive on gobbling up Sinners. You win if you can get the Fiends into 
a straight line— horizontal or vertical. You lose if you leave the 
Fiends without any Sinners to pounce on. (Not that there's much 
hope for a condemned Sinner, but things could always get worse.) 

You have 25 spaces to work with, in five rows of five columns. 
The Sinners are represented by letters. The three Fiends (easily recog- 
nizable by their squat appearance) change their starting position ran- 
domly with each game. 



ffl y H y H 

HrjUggji 
E9 191 EH 

MHHvH 



SINNERS' - MOVE? 

There are no jumps or diagonal moves in this game. The Sinners 
can move into any adjacent empty space (up, down, left, right). You 
type the letter that represents the Sinner you wish to move and the 
first letter of the direction in which you want it to move. For exam- 
ple, if you're moving Sinner B one space up, you type BU. For down, 
type BD; for left, type BL; and for a move to the right, type BR. 

The Fiends can devour any adjacent sinner by moving into its 
space and gobbling it up. Woe betide the player who leaves three 
hungry Fiends scattered about the board without any Sinners to feed 

65 
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them: He or she has lost! We won't tell you how to win this game by 
getting the three Fiends into a vertical or horizontal line. We will 
show you one way to lose! 



HUH 

Glynn 

HUH 

mm m 

THE SINNERS LOSE; THE FIENDS CAN'T MOVE! 

aa**«ir^iija2«i(«dis/jrsw;ii2i 
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100 REM NAME: SINNERS 
105 REM 

110 REM (C) MAC OGLESBY 9/30/79 
112 REM LAST REVISED ON 2/4/80 
115 REM 

120 REM COPYRIGHT 1980 BY MAC OGLESBY 
130 REM PERMISSION GRANTED TO USE, 
140 REM NOT TO SELL THIS PROGRAM. 
145 REM 

150 REM THREE OF SATAN'S FIENDS PLAY 
160 REM AGAINST A GROUP OF SINNERS. 
170 REM A GAME FOR A PET COMPUTER 
180 REM BASED ON GAME BY HAAR HOOLIM 
190 REM DESCRIBED IN SID SACKSON • S "A 
200 REM GAMUT OF GAMES." 
210 REM 

1000 REM ***INITIALIZATION 
1010 POKE 59468, 12:REM GRAPHICS MODE 
1100 DIM D(6,6),P(12 f 6),M(4),R(4) r C(4), 
-.H(2,3),U(4) 

1105 R$= m iti+t+Hi+Wiii+Wi n 

1106 C$= ">»»»»>»»»»»»»»»>»»» " 

1107 SP$=" 

n 

-i 

1110 FOR J=l TO 4: READ M(J) , R(J) , C ( J) : 

-. NEXT J 
1120 DATA 85,-1, f 82,0,1,68,1,0, 76 , f -l 
1130 FOR J=l TO 5: FOR K=l TO 5: 

-. D(J,K)=64+(J-1)*5+K: NEXT K: 

-. NEXT J 
1140 FOR 1=1 TO 2: FOR J=l TO 3 
1150 : H(I,J)=1+INT(5*RND(1)) 
1160 s FOR K=l TO J-l 
1170 : IF K<J THEN IF H(I,J)=H(I, 

-.K) THEN 1150 
1180 : NEXT K 
1190 NEXT J: NEXT I 
1200 FOR J=l TO 3: D (H(l, J) ,H (2, J) ) =666 : 

-. NEXT J 
1210 Sl$= m JuAl*<« B i<« = r" 
1215 S2$="x_ t Zj.f^< £ *<« = r" 
1220 FD$=" \2 L+<«Ml*.t<«t** a 
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1230 PRINT n fi»»»»»>»";Sl$; n >TT ,, ;FD 

-.$;">n n 7S2$;"W 
1240 PRINT "WELCOME TO WttfS I N N E -. 

-.R S" 
1250 PRINT "^hhhhhhWWANT INSTRUCTIONS -. 

-.(YES OR NO)? "; 
1255 GOSUB 6000 
1260 IF B$="NO" THEN 1300 
1270 IF B$="YS" THEN GOSUB 9000: 

-. GOTO 1300 
1275 PRINT 
1280 PRINT "PLEASE TYPE YES OR NO ";: 

-.GOTO 1255 
1300 GOSUB 8000 

2000 REM ***GENERATE COMPUTER'S MOVE 
2100 MO=0 

2110 FOR J=l TO 5: FOR K=l TO 5 
2120 : IF D(J,K)<>666 THEN 2180 
2130 : FOR L=l TO 4 
2140 : IF D(J+R(L) ,K+C(L) )<65 OR -. 

-<D(J+R(L) ,K+C(L) ) >89 THEN 2170 
2150 : MO=MO+l: P(MO,l)=J: P(MO f 2)=K 
2160 : P(MO,3)=J+R(L) : P(MO f 

-.4)=K+C(L) 
2170 : NEXT L 
2180 NEXT K: NEXT J 
2190 IF MO>0 THEN 2250 
2200 A$="THE SINNERS LOSE; THE FIENDS -. 

-.CAN'T MOVE'": GOTO 10000 
2250 PRINT "NOW, I'LL MOVE A FIEND..." 
2300 SC=SC+1 

2310 FOR 1=1 TO 3: FOR J=MO TO 1 STEP-1 
2320 : T9=1+INT(J*RND(1) ) 
2325 : TEMP=D(P(T9,3) ,P(T9 f 4) ) 
2330 : D(P(T9,1),P(T9,2))=32 
2335 : FR=P(T9 f l): FC=P(T9 f 2) 
2340 : D(P(T9 f 3) f P(T9 f 4))=666 
2345 : NR=P(T9 f 3): NC=P(T9 f 4) 
2350 : IF I<3 THEN 2400 
2360 : GOSUB 8500: A$="THE SINNERS -. 

-.ARE WINNERS...": GOTO 10000 
2400 : FOR K=l TO 5 
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2410 
2420 
2430 

2440 

2450 
2460 
2475 

2480 

2500 
2510 
2520 
2530 

2540 

2550 

2560 
3000 
3100 
3110 
3200 



3210 IF 



3220 IF 



3230 

3260 
3300 
3310 

3320 
3330 
3360 
3400 
3410 



IF SC<22 -i 



GOTO -. 



U(J0)=P(J,J0) : 

P(J,J0)=P(T9, 

P(T9,J0)=U(J0) 



R9=0: C9=0 
FOR L=l TO 5 

IF D(K,L)=666 THEN R9=R9+1 : 

-, IF R9>I THEN 2500 
: IF D(L,K)=666 THEN C9=C9+1 : 

i IF C9>I THEN 2500 
: NEXT L 
: NEXT K 
: GOSUB 8500: GOSUB 6500: 

-.THEN 3000 
: A$="NO MORE SINNERS...": 

-.10000 
: D(P(T9,1),P(T9,2))=666 
: D(P(T9,3) ,P(T9,4))=TEMP 
: IF T9=J THEN 2560 
: FOR J0=1 TO 4: 

-i NEXT J0 
: FOR J0=1 TO 4: 

iJ0) : NEXT J0 
: FOR J0=1 TO 4: 

-i NEXT J0 
NEXTJ: NEXT I 
REM ***PLAYER'S MOVE 
PRINT "SINNERS' MOVE? "; 
GOSUB 6000 
IF B$="IN" THEN GOSUB 9000: 

-. GOSUB 8000: GOTO 3100 
B$="HE" THEN GOSUB 6500: 
GOSUB 7000: GOTO 3100 
B$="RE" THEN A$="THE SINNERS -. 

-.GIVE UP...": GOTO 10000 
IF B$="BO" THEN GOSUB 8000: 

-. GOTO 3100 
SR=ASC(LEFT$(B$,1)) 
FOR J=l TO 5: FOR K=l TO 5 
: IF D(J f K)=SR THEN R=J: C=K: 

-. GOTO 3360 
NEXT K: NEXT J 
GOTO 3500 

DR=ASC(RIGHT$(B$,1) ) 
FOR J=l TO 4 
: IF DROM(J) THEN 3450 
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3420 : IF D(R+R(J) ,C+C(J))<>32 THEN -. 

-.3500 
3430 : D(R+R(J) ,C+C ( J) ) =D(R,C) : 

-i D(R,C)=32 
3435 : FR=R: FC=C: NR=R+R(J) : 

-. NC=C+C(J) 
3440 : GOSUB 8500: GOSUB 6500: 

-i GOTO 2000 
3450 NEXT J 
3500 GOSUB6500 
3510 PRINT "THAT'S NOT A LEGAL MOVE. i 

-/TYPE HE FOR "; 
3520 PRINT "HELP. TYPE IN FOR -. 

-.INSTRUCTIONS." 
3540 GOTO 3100 

6000 REM ***GET PLAYER'S INPUT 
6010 B$= n " 
6020 GET A$: IF A$<>"" THEN 6020: 

-i CLEAR BUFFER 
6100 GET A$: IF A$= n " THEN 6100 
6110 IF ASC(A$)=13 THEN PRINT "T"; 
6120 PRINT A$;: B$=B$+A$ 
6130 IF LEN(B$)=1 THEN 6100 
6140 IF B$="YE" THEN B$="Y": GOTO 6100 
6150 FOR J=l TO 100: NEXT J: RETURN 
6500 REM ***CLEAR BOTTOM OF SCREEN 
6600 PRINT "Ji n ;R$; 

6610 FOR J=l TO 5: PRINT SP$; : NEXT J 
6620 PRINT "Ji";R$; 
6630 RETURN 
7000 REM ***HELP 
7010 GOSUB 6500 
7100 PRINT "LEGAL MOVES:"; 
7110 FOR J=l TO 5: FOR K=l TO 5 
7120 : IF D(J,K)<65 OR D(J,K)>89 THEN -. 

-.7160 
7130 : FOR L=l TO 4 
7140 : IF D(J+R(L) ,K+C(L) ) =32 THEN -i 

-iPRINT " ";CHR$(D(J,K)) ;CHR$(M(L)) ; 
7150 : NEXT L 
7160 NEXT K: NEXT J 
7170 PRINT 
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7200 RETURN 

8000 REM ***PRINT THE BOARD 

8100 PRINT "fi"; 

8110 FOR J=l TO 5: PRINT "»»»»»»»"; 

8120 : FOR K=l TO 5 

8125 : IF D(J,K)=32 THEN PRINT -i 

-."»»W;: GOTO 8160 
8130 : IF D(J,K)=666 THEN PRINT FD$;: 

-. GOTO 8160 
8140 : PRINT "x_*.";CHR$ (D( J,K) ) ; "i+<« -> 

-0. i<« = r"; 
8160 : IF K<5 THEN PRINT "»TT"; 
8170 : NEXT K 
8180 : PRINT "*" 
8190 NEXT J: RETURN 
8500 REM ***MOVE THE PIECES 
8600 PRINT"li";LEFT$(R$,FR*4-3) ;"T";LEFT$ 

-.(C$,FC*4+6); 
8610 PRINT " i<« i<« 
8620 PRINT "Ji";LEFT$(R$,NR*4-3) ;"T";LEFT 

-i$(C$,NC*4+6) ; 
8630 IF D(NR f NC)=666 THEN PRINT FD$: 

-. RETURN 
8650 PRINT n JLt.";CHR$(D(NR f NC)); n it^< 1 -. 

->+<« = r": RETURN 
9000 REM ***INSTRUCTIONS 
9100 PRINT "fiTHREE OF SATAN'S FIENDS -i 

-i (MOVED BY THE" 
9110 PRINT "COMPUTER) PLAY AGAINST A -. 

-■GROUP OF CON-" 
9120 PRINT "DEMNED SINNERS (MOVED BY -. 

-.YOU) . " 
9130 PRINT 
9140 PRINT "THE PLAYING FIELD HAS 25 -. 

-.SPACES , " 
9150 PRINT "5 ROWS OF 5 COLUMNS." 
9160 PRINT 
9170 PRINT "A SINNER MAY MOVE INTO ANY -. 

-.ADJACENT" 
9180 PRINT "EMPTY SPACE. A FIEND MOVES -. 

-.INTO AN" 
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9190 PRINT "ADJACENT SPACE WHICH -. 

-■CONTAINS A SINNER, " 
9200 PRINT "WHO IS THEREBY CAPTURED AND -. 

-■REMOVED." 
9210 PRINT "THERE ARE NO DIAGONAL MOVES -. 

-.AND NO" 
9220 PRINT "JUMPS." 
9230 PRINT 
9240 PRINT "THE SINNERS WIN IF ALL -. 

-•FIENDS ARE IN" 
9250 PRINT "A LINE HORIZONTALLY OR -. 

-•VERTICALLY." 
9260 PRINT "THE SINNERS LOSE IF THE -. 

-.FIENDS, AT" 
9270 PRINT "THEIR TURN, CAN'T CAPTURE A -. 

-■SINNER." 
9280 PRINT: PRINT: PRINT 
9290 PRINT "PRESS RETURN TO CONTINUE..." 

9300 GOSUB 9600 

9310 PRINT "fi U": PRINT 

9320 PRINT "L + R": PRINT 

9330 PRINT " D": PRINT 

9340 PRINT 

9350 PRINT "TO MOVE A SINNER, TYPE TWO -. 

-.LETTERS:" 
9360 PRINT "THE LETTER NAMING THE -. 

-.SINNER AND THE" 
9370 PRINT "LETTER TELLING THE DIRECTION 

i TO GO." 
9380 PRINT 
9390 PRINT "FOR EXAMPLE, JU MEANS -. 

-.SINNER J" 
9400 PRINT "WANTS TO MOVE UP." 
9410 PRINT 
9420 PRINT "FINALLY, AT YOUR TURN YOU -. 

-.MAY TYPE:" 
9425 PRINT 

9430 PRINT " RE TO RESIGN" 
9440 PRINT " IN FOR THESE INSTRUCTION 

-.S" 
9450 PRINT " HE FOR A LIST OF LEGAL -. 

-.MOVES" 
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9460 

9470 

9480 

9500 

9600 

9610 

9620 

9630 

10000 

10100 

10110 

10120 

10130 

10140 

10145 

10150 

10200 

10205 

10210 

10220 

10230 

10240 

10300 

10320 

10400 
10410 
10420 

10430 

10440 

10450 

READY. 



PRINT " BO TO SEE THE BOARD." 

PRINT: PRINT: PRINT 

PRINT "PRESS RETURN TO START." 

GOSUB 9600: RETURN 

GET A$: IF A$O n " THEN 9600 

GET A$: IF A$="" THEN 9610 

IF ASC(A$)=13 THEN RETURN 

GOTO 9610 

REM ***FINALE 

GOSUB 6500 

FOR J=l TO 4 

: POKE 59409,52: 

: FOR K=l TO 200: 

: POKE 59409,60 

: FOR K=l TO 200: 

NEXT J 

FOR J=l TO 9 

: PRINT "Ji";R$; 

: IF J/2=INT(J/2) 

: PRINT A$ 

: FOR K=l TO 100: 

NEXT J 

rPRESS 



REM BLINK SCREEN 
NEXT K 

NEXT K 



THEN PRINT "i"; 



NEXT K 



PRINT " 
-.AGAIN" 
PRINT " 
-.QUIT"; 
GET A$: 
GET A$: 



RETURN TO PLAY -. 



XPRESS ANY OTHER KEY TO 



IF A$<>"" THEN 10400 
IF A$="" THEN 10410 

IF ASC(A$)=13 THEN PRINT "fiRUN" : 

-. RUN 

PRINT "fi^THANKS FOR PLAYING -. 

-.xSINNERSr WITH ME.f" 

PRINT "BYE FOR NOW...W" 

END 



Brainbuster 

by Len Lindsay 



Since you've advanced this far, we wanted to give you a real 
Brainbuster. You can spend hours on this puzzle (you probably will!). 
Even author Len Lindsay spent several days busting his own brain on 
this, and he still can't guarantee a win within eleven moves every 
time he plays. 

Brainbuster really tests your ability to plan ahead. Every move 
you make has far-reaching consequences. This game stretches your 
strategic skills— try it on your Logic class for size. It's good for your 
brain (and you deserve to have a swelled head when you figure it 
out). Here it is: 



THIS PU22LE SHOULD PROVE TO BE A GOOD 
EXERCISE FOR VOUR BRAIN. TEST YOUR 
LOGIC AS WELL AS STRATEGIES. IT IS NOT 
EASY, BUT CHALLENGES ARE ALWAYS THE 
MOST FUN. 
■:»t«3:ftI«:*MiM«i]3lif2llj:a 



Nine boxes are randomly set to black or white. The winning 
position, tantalizingly displayed in the lower right-hand corner of 
your screen, is to achieve eight white boxes with only one black box 
in the center: 



YOU BEGIN WITH THE NINE BOXES RANDOMLY 
SET TO WHITE OR BLACK. EACH TURN YOU 
MAY TURN OFF ANY OF THE WHITE BOXES 
< CHANGE IT TO BLACK;. HOWEVER, THIS 
WILL AFFECT THE STATUS OF ITS NEIGHBORS 
TOO. NEXT WILL BE SOME EXAMPLES. 

miHMASiMmammiittmm 
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Remember: our printer reverses black and white, so whatever 
appears black on these pages would be white on the screen. 
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The controlling keys are the numbers on your keypad, also dis- 
played in the upper right-hand corner of your screen. You turn off a 
box by pressing the number that corresponds to the box's position 
on the screen. However, every time you turn off a box, this affects 
its neighbors. You cannot turn on a black box by typing in the cor- 
responding number. You can only turn off white boxes, thereby af- 
fecting their neighbors. Here are the complications of this conun- 
drum: 

1 . If you turn off a corner box, its three neighbors switch colors. 

2. If you turn off the box in the center, the four boxes on each 
side switch colors. 

3. If you turn off the middle box on either side of the puzzle, 
the two neighboring boxes will also reverse colors. 

Your ultimate challenge is to figure out how to win in only 1 1 
moves regardless of the starting configuration, which changes ran- 
domly with every game. When you have achieved this goal, Len rates 
you GENIUS. WARNING: It may take weeks to become a Genius 
Brainbuster. Needless to say, this is a C-level game! 

Note: Brainbuster works on all PET models from the original PET 
2001-8 to the most recent CBM 8032 and 8016. Owners of Business 
models may have to substitute for the graphic characters in Line 60. 
Choose anything to your liking, but don't change the cursor move- 
ments. Business keyboard players may also replace SHIFT "&" (a 
gray box on other models) with # or any other graphic character. 
SHIFT & occurs in Lines 6015, 6040, 6060, and 6090. 



Brainbuster is based on "Teaser," What To Do After You Hit Return, 
published by People's Computer Company, P.O. Box E, Menlo Park, CA 94025. 
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REM*** WORKS ON ORIGINAL PET 2001-8, 

-. NEW PET/CBM, BASIC 4.0, & CBM -. 
-,8032 & 8016 

1 REM***BRAIN BUSTER*** 

2 REM***ORIGINAL PROGRAM 

3 REM*** AN OLD PUZZLE 

4 REM***(C) 1980 

5 REM***BY LEN LINDSAY 

6 REM***01-22-80 

7 REM***CHANGE LINE 10400 TO SKIP THE -> 

-.TIME DELAY THUSLY: 

8 REM*** 10400 RETURN 

9 REM***USES MAIN SUBROUTINES 10100, 

-i 10400 

10 POKE59468,12:REM GRAPHIC MODE 

15 XQ=RND(-TI) : XQ=0 : REM SEED RND 

20 PRINT "fi"; : REM CLEAR SCREEN 

40 DEF FNR(N)=INT(RND(1)*N+1) : REM RND# 

50 REM 

51 ZZ$=" 

-i" : REM 40 DELETE 

52 ZD$= n WWWWmWWWmW i 

-,REM 23 DOWN 

56 ZR$= "»»»»»»»»»»»»»»»» 

-,»»»» " : REM 40 RIGHT 

57 RM$="Ja n +ZD$+ZZ$ : REM TO REMARK LINE 

58 MV$="Ji^"+ZD$ : REM TO MOVE LINE 

59 REM P$ IS THE PIECE - BLACK AS IS, 

-i OR PRECEDE WITH A RVS FOR WHITE -. 
-.PIECE 

60 P$=" W&&&&I *«4«+ V&&@I'\ «44«* M]&I'\] 4 

^«44<* ] 1JK1 ] «*44< f\J&&Kl « : 4«4*J& 

61 PC$(l) = "li"+LEFT$(ZD$,15)+LEFT$(ZR$,l) 

62 PC$(2) = "Ji"+LEFT$(ZD$,15)+LEFT$(ZR$,8) 

63 PC$(3)="li n +LEFT$(ZD$,15)+LEFT$(ZR$, 

-.15) 

64 PC$(4) = "li"+LEFT$(ZD$,8)+LEFT$(ZR$,l) 

65 PC$(5)= n Ji"+LEFT$(ZD$,8)+LEFT$(ZR$,8) 

66 PC$(6) = "li n +LEFT$(ZD$,8)+LEFT$(ZR$,15) 

67 PC$(7)= n Ji tl +LEFT$(ZD$,l)+LEFT$(ZR$,l) 

68 PC$ ( 8) = "Ji ,, +LEFT$ ( ZD$ , 1 ) +LEFT$ ( ZR$ , 8 ) 
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69 PC$(9)="h"+LEFT$(ZD$,l)+LEFT$(ZR$,15) 
90 PRINT "WOULD YOU LIKE TO SEE THE -. 

-.INSTRUCTIONS?" 
92 GOSUB10130 

94 IFXA$="Y"THENGOSUB5000:GOTO90 
96 IFXA$="N"THEN 100 
98 GOT092 
100 PRINT "fi"; 

102 MV=0 : REM IN IT MOVE COUNTER 
110 GOSUB6000 : REM DRAW BOARD 
115 GOSUB7000:REM SET UP RANDOM PIECES 
120 PRINT RM$;"x WHAT IS YOUR MOVE?? -. 

-if?"; 
130 GOSUB 10130 : REM GET 
140 IFXA$="Q"THEN END 
150 IFXA=0THEN130 
155 IFPZ(XA)=0THENPRINTRM$;"j:CHOOSE -. 

-.ONLY THE WHITE BOXES. YOUR -. 

-.MOVE?r";:GOTOl30 
160 MV=MV+1 : REM INCREMENT MOVE COUNT 
170 PRINTMV$;"MOVES:";MV; 
180 PRINTRM$;"FIRST I'LL TURN OFF -. 

-.BOX";XA 
190 PZ(XA)=0: PRINTPC$(XA) ;P$ 
195 GOSUB10400 
200 PRINTRM$;"jlNOW I'LL CHANGE ITS -. 

-.NEIGHBORS" 
210 GOSUB10400 
250 ONXAGOSUB310,320,330,340,350,360, 

-.370,380,390 
260 WN=0 

270 F0RQ=1T09:WN=WN+PZ(Q) :NEXTQ 
280 IFWN=8ANDPZ(5)=0THEN7500:REM -. 

-.WINNER**** 
290 IFWN=0THEN7600:REM LOSER*** 
300 GOSUB7100: GOTO120 : REM NEXT MOVE 

310 PZ(2)=1-PZ(2) 

311 PZ(4)=1-PZ(4) 

312 PZ(5)=1-PZ(5) 

319 RETURN 

320 PZ(1)=1-PZ(1) 

321 PZ(3)=1-PZ(3) 
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329 RETURN 

330 PZ(2)=1-PZ(2) 

331 PZ(5)=1-PZ(5) 

332 PZ(6)=1-PZ(6) 

339 RETURN 

340 PZ(7)=1-PZ(7) 

341 PZ(1)=1-PZ(1) 

349 RETURN 

350 PZ(8)=1-PZ(8) 

351 PZ(4)=1-PZ(4) 

352 PZ(6)=1-PZ(6) 

353 PZ(2)=1-PZ(2) 

359 RETURN 

360 PZ(9)=1-PZ(9) 

361 PZ(3)=1-PZ(3) 

369 RETURN 

370 PZ(8)=1-PZ(8) 

371 PZ(4)=1-PZ(4) 

372 PZJ,5)=1-PZ(5) 

379 RETURN 

380 PZ(7)=1-PZ(7) 

381 PZ(9)=1-PZ(9) 

389 RETURN 

390 PZ(8)=1-PZ(8) 

391 PZ(5)=1-PZ(5) 

392 PZ(6)=1-PZ(6) 
399 RETURN 

4999 END 

5000 PRINT "fi"; : REM INSTRUCTIONS 
5010 PRINT "THIS PUZZLE SHOULD PROVE TO 

-iBE A GOOD" 
5015 PRINT 
5020 PRINT "EXERCISE FOR YOUR BRAIN. -. 

-■TEST YOUR" 
5025 PRINT 
5030 PRINT "LOGIC AS WELL AS STRATEGIES. 

-.IT IS NOT" 
5035 PRINT 
5040 PRINT"EASY, BUT CHALLENGES ARE n 

nALWAYS THE" 
5045 PRINT 

5050 PRINT"MOST FUN." 
5060 PRINT 
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5090 GOSUB10100 

5100 PRINT"fi"; 

5110 PRINT n YOU BEGIN WITH THE NINE -. 

-•BOXES RANDOMLY" 
5115 PRINT 
5120 PRINT"SET TO WHITE OR BLACK. EACH -. 

-.TURN YOU" 
5125 PRINT 
5130 PRINT"MAY TURN OFF ANY OF THE -. 

-.WHITE BOXES" 
5135 PRINT 
5140 PRINT" (CHANGE IT TO BLACK). -. 

-.HOWEVER, THIS" 
5145 PRINT 
5150 PRINT"WILL AFFECT THE STATUS OF -. 

-.ITS NEIGHBORS" 
5155 PRINT 
5160 PRINT"TOO. NEXT WILL BE SOME -. 

-.EXAMPLES." 
5165 PRINT 
5190 GOSUB10100 
5200 GOSUB5900 
5210 PRINT" IF YOU TURN OFF A CORNER, 

-.THE OTHER" 
5220 PRINT"THREE BOXES IN THAT CORNER -. 

-.SECTION WILL" 
5230 PRINT"BE CHANGED (WHITE BECOME -. 

-.BLACK, AND" 
5240 PRINT"BLACK BECOME WHITE)." 
5245 PRINT 
5250 PRINT"FOR EXAMPLE, LETS TURN OFF -. 

-.X9r. THE" 
5260 PRINT"RESULT WOULD BE THIS:" 

5270 PRINT 

5271 PRINT " 02 P2 0. " 

5272 PRINT "171x8 rl91" 

5273 PRINT "+£10111" 

5274 PRINT"lx4rl51x6rl" 

5275 PRINT "+JLIJLLS2" 

5276 PRINT "111x2 f 131" 

5277 PRINT" -P1P1@= " 
5290 GOSUB10100 
5300 GOSUB5900 
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5310 PRINT"IF YOU TURN OFF THE MIDDLE -■ 

-.BOX ON ONE" 
5320 PRINT"OF THE FOUR SIDES, THE TWO -. 

-.CORNER BOXES" 
5330 PRINT"THAT IT TOUCHES WILL BE -. 

-^CHANGED. FOR" 
5340 PR INT "EXAMPLE, LETS TURN OFF x4r. -. 

-iTHE RESULT" 
5350 PRINT"WOULD BE THIS:" 
5360 PRINT 

5371 prtnt" 0O2O2O. " 

5372 PR INT "1x7 £181x9 rl" 

5373 PRINT"±iL£JJl" 

5374 PRINT "141x5 rl61" 

5375 PRINT n ±8_|J_L£l" 

5376 PRINT "ltlrlr.2rl31" 

5377 PRINT" - 01 010= " 
5390 GOSUB10100 
5400 GOSUB5900 

Dt±a fKinx Ir iuu ±u.kjn urr rni dua xin -. 

-.THE VERY" 
5420 PRINT"CENTER (THE 5) ITS FOUR -i 

-.DIRECT" 
5430 PRINT"NEIGHBORS WILL CHANGE (NOT -i 

-.THE" 
5440 PRINT"DIAGONALS) . FOR EXAMPLE IF -. 

-iWE TURN OFF" 
5450 PRINT"THE x5r THE RESULT IS:" 
5460 PRINT 

5471 PRINT" 0O2O2O. " 

5472 PR INT "171x8 rli9rl" 

5473 PRINT "±0J_0J_OJ." 

5474 PR INT "14151x6 rl" 

5475 PRINT ,, +£L£J_£3_" 

5476 PRINT"H12131" 

5477 PRTNT" -01010= " 
5490 GOSUB10100 
5500 PRINT"fi"; 

5510 PRINT"OK, THAT IS ALL THERE IS TO -. 

-.IT!" 
5520 PRINT 
5530 PRINT"PERHAPS YOU WOULD LIKE TO -i 

-.RUN THROUGH" 
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5535 


5540 


5545 


5550 


5555 


5560 


5590 


5900 


5910 


5920 


5930 


5940 


5950 


5960 


5970 


5980 


5990 


6000 


6010 


6015 


6020 


6030 


6040 


6050 


6060 


6070 


6080 


6090 


6100 


6110 


6120 


6130 


6140 


6150 


6160 


6170 


6180 


6190 


6200 


6210 


6220 


6230 



HERE IS A POSSIBLE" 

RANDOM POSITION" 



PRINT 

PRINT"THESE INSTRUCTIONS AGAIN, -. 

-.THUS I WILL" 
PRINT 

PRINT"GIVE YOU THAT OPTION." 
PRINT: PRINT 
PRINT 
RETURN 
PRINT "fi"; 
PRlNT" 0(a2(a2(a. 

PRINT "1718Ix9.rl 
PRINT "±£lM13_ n 
PRINT "1x4 rir5 2161 " 

pRTNT" +gr(ar@3 " 

PRINT "111x2 rl31" 

PRINT" -01 010= " 

PRINT 

RETURN 

PRINT"Ji"; : REM PRINT BOARD 

F0RX=1T03 

: F0RY=1T022 : PRINT"*" ; : NEXTY : PRINT 

:F0RY=1T06 

::F0RZ=1T03 

:: : PRINT "£»»»»»»"; 

: :NEXT 

: : PRINT "£" 

:NEXT 

NEXT 

F0RY=1T022 : PRINT "k 

PRINT n h " ; 

"EACH OF 

"THE NINE 

" KEYS~> 

"CONTROL 

" ITS 

"MATCHING 

" BOX ON 



.-NEXTY: PRINT 



PRINTTAB(23) 
PRINTTAB(23) 
PRINTTAB(23) 
PRINTTAB(23) 
PRINTTAB(23) 
PRINTTAB(23) 
PRINTTAB(23) 
PRINTTAB(23) 
PRINTTAB(23) 
PRINTTAB(23) 
PRINTTAB(23) 
PRINTTAB(23) 
PRINTTAB(23) 



002023. " 
1718191" 

1415161" 

1112131" 

- 616 1 6 =" 



THE LEFT. 



"YOU MAY TURN OFF" 
" ANY WHITE BOX- " 
" ITS NEIGHBORS " 
" WILL ALSO BE " 
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6240 
6250 
6300 
6310 

6320 
6330 
6340 
6350 

6360 
6400 
6999 
7000 
7010 
7015 
7020 
7030 
7040 
7099 
7100 
7110 
7120 
7130 
7140 
7199 
7500 
7525 
7527 
7530 
7540 
7550 
7560 
7570 

7580 
7590 
7595 
7599 
7600 

7605 



AFFECTED. 



" THE 
"WINNING 

"POSITION 
"IS SHOWN 
" AT THE 
"RIGHT— > 



00202(3. " 
lrWrlrWrlrWr 

lrWr lWlrW rl" 

±MA131" 

1 rW r l rW f 1 rW r 



"GOOD LUCK -PI 010= ' 



PRINTTAB(23) 
PRINTTAB(23) 
PRINTTAB(23) 
PRINTTAB(23) 

PRINTTAB(23) 
PRINTTAB(23) 
PRINTTAB(23) 
PRINTTAB(23) 

PRINTTAB(23) 

REM 

RETURN 

FORX=9T01STEP-1 

:PRINTPC$(X) ; 

:PZ(X)=FNR(2)-1 : REM PUZZLE ARRAY 

:IFPZ(X) THENPRINT"x"; 

:PRINTP$ 

NEXTX 

RETURN 

F0RQ=9T01STEP-1 

:PRINTPC$(Q) ; 

: IFPZ (Q) THENPRINT"x." ; 

:PRINTP$ 

NEXT Q 

RETURN 

GOSUB7100:REM PRINT BOARD 

GOSUB7100:REM PRINT BOARD 

PRINT "Ji " ; 

F0RW=1T011 

:PRINT TAB (23) ;"***£ YOU WIN f*** " 

:PRINT TAB (23) ♦ "*************** " 

NEXTW 

PRINT-jlYOU WON IN";MV;"« MOVES. 

-.PLAY AGAIN??f?"; 
GOSUB10130:REM GET 
IFXA$="Y"THEN100 
IFXA$= "N"THENPRINT" T T T " : END 
GOTO7580 
GOSUB7100:PRINTRM$;"YOU CAN NOT -. 

-.WIN NOW!-iPLAY AGAIN?? r?" 
GOSUB7100:PRINTRM$;"YOU CAN NOT -. 

-.WIN NOWI-jlPLAY AGAIN?? r?" 
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7610 GOTO7580 

8000 REM 

8099 RETURN 

10100 IPXX$= nM THENXX$= n £ HIT SPACE TO -. 

-•CONTINUE r" : REM GET 1 CHARACTER 
10120 IPXX$O n "THENPRINTXX$; : REM i 

-.PRINT MESSAGE 
10130 GETXA$:IFXA$> ,,n THEN10130:REM i 

-iCLEAR BUFFER 
10140 GETXA$:IFXA$=""THEN10140 
10150 XA=VAL(XA$) 
10199 XX $=" n : RETURN 
10400 IFXP=0THENXP=3 :REM PAUSE 
10420 XJ=TI+60*XP 
10430 IFTKXJTHEN10430 
10499 XJ=0:XP=0: RETURN 
READY. 



Chapter 3 



Games of 
Deductive Reasoning 



Stars 

by Mac Oglesby 



This excursion into the Galaxy is an excellent, simple introduc- 
tion to games of deductive reasoning. Using the clues available, can 
you discover the correct solution? 

In Stars, your objective is to guess a number from 1 to 100. Type 
your guess and press RETURN. Your PET will let you know if 
you're hot, warm, or cold. 



*•# 1 1*' S I »■' *> 1 1"' '*■ ! r' \ 1 r' \ i r" s i i / 

~$r ~7*,r ~$r Ttr Ttr Ttr i*,r 



WELCOME TO MV GAL AXV . PlAV MV GAME OF 
STARS AND WIN SOME FOR VOURSElF. 

I'LL THINK OF A NUMBER FROM 1 TO 108 
AND VOU TRV TO GUESS II, 

AFTER EACH GUESS I'LL PRINT STARS TO 
SHOW HOW CLOSE VOU ARE. 

PRESS RETURN TO CONTINUE. . . 
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If your guess is very close to the secret number, your PET will 
display seven (7) stars on your screen: 



SEVEN STARS - 

\ 1/ \ 1/ S 1/ S 1/ S 1/ Si/ SI/ 

,•• i ••. .•• i ••. .•• I •-, ,•• I ••. .-■ i ••. ,•• i -^ ,•• i ••• 

MEANS VOU ARE fflsfslfll CLOSE ! ! ! 

OK, HUMAN, I'M THINKING OF A NUMBER. 
START GUESSING. . . 

DON'T FORGET TO PRESS RETURN AFTER 
EACH GUESS. 



Mk? 



If your guess isn't even in the right galaxy, your star-gazing PET will 
only display one or two stars: 

This means you're way off base! 

You can deduce the correct answer by paying attention to the 
number of stars your PET gives you in relation to your guesses. 



Mk? 


52 SI,-' 
7^- 




mm? 


l' O \ 1 / 

-7»- 




Mk? 


20 S 1/ Si/ Si/ 

7ls 7ls 7ls 




mk? 


XX ill tit lit til 

Tt; — r*; — r<r; — *r 
/ IS / IS / IS / IS 




Mk? 


e SI/ S 1/ S 1/ Si/ Si/ 

7!s 71s /Is 71s 71s 


S!/ 
/ IS 


Mk? 
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GUESS? -7»r 

/ IS 

VRUB-. 20 SI/ SI/ SI/ 
UOEb'yv t#- t#- 7»r 

/ i **i t** I **» i*" I '"t 

YOUR 11 S 1/ S 1/ SI/ SI/ 

UUESS? -+- -♦ ♦- —*- 

/ IS / IS / IS / IS 

VRue.- 6 SI/ SI/ SI/ SI/ Si/ SI/ 
uOEbb'Y t*- t#- 7+- -7»- "7*- 7*- 

r i "1 1* I *t t* I **i r I **i i* 1 *i i** 1 **i 

VRU6-. 1 SI/ SI/ SI/ SI/ SI/ 
/IS /IS /IS /IS /IS 

vflue.. 5 si/ si/ si/ si/ si/ si/ 

uOEb'b":' -*; — ;#; — r#: — r*: — t»; — rf- 



&8fc!ls? 



The real challenge is to see how quickly you can arrive at the 
solution with the fewest possible number of guesses. Each time you 
win this celestial guessing game, your computer rewards you with: 



** * si/ * * * * * A 

* */is * * ** * ; 

A- jk * A; A A '•. j ..' A A: £ 

sl ■ a ^Ji -J A i 1 1 Tl 9 Kia I H -3 •slMaltfS'i 1 3 Hff| 




# 



i * 






**#i ****£* ** * * * 

Keep your eye on the stars! 

Level A: Perfect for beginning gamesters and fun for everyone. 
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100 REM NAME: STARS 

110 REM 

120 REM (C) MAC OGLESBY 9/30/79 

130 REM 

140 REM A NUMBER GUESSING GAME BASED 

150 REM ON THE LISTING PUBLISHED IN 

160 REM "PEOPLE'S COMPUTERS" JAN 78 

170 REM 

1000 REM *** WELCOME 

1010 POKE 59468 f 12: REM GRAPHICS MODE 

1020 X=RND(-TI): X=0: REM RND SEED 

1100 GOSUB 9000 

1110 FOR J=l TO 800: NEXT J 

1120 PRINT "fi"; 

1130 FOR J=l TO 7 

1140 : PRINT ST$; 

1150 : PRINT " TT"; 

1160 NEXT J 

1165 PRINT 

1170 PRINT "^hhhWWELCOME TO MY GALAXY. -. 

-iPLAY MY GAME OF" 
1180 PRINT: PRINT "STARS AND WIN SOME -. 

iFOR YOURSELF." 
1190 PRINT: PRINT: PRINT "I'LL THINK OF -. 

-.A NUMBER FROM 1 TO 100" 
1200 PRINT: PRINT "AND YOU TRY TO GUESS -. 

-.IT." 
1210 PRINT: PRINT: PRINT "AFTER EACH -. 

-.GUESS I'LL PRINT STARS TO" 
1220 PRINT: PRINT "SHOW HOW CLOSE YOU -. 

-.ARE." 
1225 PRINT "WPRESS RETURN TO -. 

-.CONTINUE.. ." 
1230 GOSUB 5000 
1245 PRINT "fiSEVEN STARS ii" 
1250 FOR J=l TO 7 
1255 : PRINT ST$;" TT"; 
1270 NEXT J 
1275 PRINT 
1280 PRINT "MWMEANS YOU ARE xVERYr -. 

-.CLOSE! II" 
1300 PRINT "WOK f HUMAN, I'M THINKING -. 

-.OF A NUMBER." 
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1310 


1340 


1350 


1360 


1500 


1600 


2000 


2100 


2120 


2200 


2205 


2210 


2215 


2220 


2225 


2230 


2240 


2250 



PRINT "^START GUESSING..." 

PRINT "tfDON'T FORGET TO PRESS -. 

-.RETURN AFTER" 
PRINT "^EACH GUESS." 
PRINT 
X=1 + INT(100*RND(1)) : REM PICK -. 

-.NUMBER 
N=l: REM RESET GUESS COUNTER 
REM ** ACCEPT GUESSES 

PRINT "Wyour" 

PRINT "GUESS? T"; 

B$="" 

GET A$: IF A$O n " THEN 2205 

GET A$: IF A$=" n THEN 2210 

IF ASC(A$)=13 THEN 2240 

IF LEN(B$)>2 THEN 2300 

IF ASC(A$)>47 AND ASC(A$)<58 THEN - 
-.PRINT A$;: B$=B$+A$ 

GOTO 2205 

G=VAL(B$) 

IF G>0 AND G<101 AND G=INT(G) THEN 
-.2500 
2300 PRINT: PRINT: PRINT "PLEASE TYPE A 
-.WHOLE NUMBER FROM 1 TO 100": 
-. GOTO 2000 
2500 IF G=X THEN 4000 
2505 GOTO 3000 
3000 REM *** SHOW CLUES 
3100 D=ABS(G-X) 
3110 PRINT " "; 
3200 FOR J=LOG(D)/LOG(2) TO 6 
3210 : PRINT ST$; n TT"; 
3220 NEXT J 
3225 N=N+1 

3230 PRINT: PRINT: GOTO 2000 
4000 REM *** PLAYER GUESSED IT 
4100 GOSUB 9000 
4110 PRINT "JltWWrYOU GUESSED MY -. 

-iNUMBER IN";N;"< "; 
4120 IF N=l THEN PRINT "xTRYM!": 

-. GOTO 4200 
4130 PRINT "xTRIESU !" 

4140 print "WW; 
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4200 PRINT "ttPRESS RETURN TO PLAY -, 
-.AGAIN..." 

4210 print "Express any other key to -. 

-iQUIT" 
4220 GOSUB 5000: PRINT "fi";: IF -i 

-.ASC(A$)=13 THEN 1300 
4230 PRINT "^THANKS FOR PLAYING -i 

-.XSTARSr.^" 
4240 PRINT "BYE FOR NOW...^" 
4250 END 

5 00 REM *** GET A RETURN 
5100 GET A$: IF A$<>"" THEN 5100 
5110 GET A$: IF A$= n " THEN 5110 
5200 RETURN 

9000 REM *** STARS, AND MORE STARS 
9010 PRINT "fi"; 
9020 S=100+INT(100*RND(1) ) 
9030 FOR J=l TO S 
9040 : Y=1 + INT(1000*RND(1) ) : POKE -i 

- 1 32768+Y f 42 
9050 NEXT J 
9110 ST$= n \l/t«<&Z£t<«/±\ n 

9120 R$= n tmtWWWWWWW 

9130 C$= B »»»>»»>»»»»»»>»»»» 

-.»>»" 
9200 FOR J=l TO 9 
9210 : R=(1+INT(5*RND(1)))*4 
9220 : C=(1+INT(9*RND(1)))*4 
9230 : PRINT "Ji n ;LEFT$ (R$,R) ;LEFT$ (C$, 

--C); 
9240 : PRINT ST$ 
9300 NEXT J 
9400 RETURN 
READY. 



Button, Button 

by hen Lindsay 



Len's inspiration for this game is "Button, Button, Who Has 
The Button?" Kids have been playing this game for hundreds of 
years all around the world, so Len decided to devise a version for the 
PET computer. Button works on all PETs, from the original PET 
2001-8 to the latest CBM 8032. (Lines 10, 11, and 52 are for the lat- 
est 80-column CBM 8032 and 8016 computers, but your program 
will work no matter which PET you're playing with). 

The object of this game is to guess a moving target. In Stars, the 
secret number just stayed put until you guessed it. Button increases 
the challenge. Seven players are seated in a circle. They're numbered 
one through seven: 



BUTTON, BUTTON, WHO HAS THE BUTTON? 



SEVEN OF V0UR FRIENDS FIRE SITTING IN A 
CIRCLE. ONE OF THEM HAS THE MAGIC 
BUTTON. IT IS UP TO V0U TO FIND IT. 
HOWEVER, ALL VOUR FRIENDS HAVE THEIR 
HANDS BEHIND THEIR BACKS AND WILL DO 
THEIR BEST TO TRICK VOU. 



Knma-izwmimmiitiiai: 



Only one of these players has the magic button, and you must 
guess which one. However, to complicate matters— every time you 



95 
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guess incorrectly, the player with the magic button may keep the 
button OR pass it to one of the players next to him. 

You won't be able to see who has the magic button, or to 
whom it gets passed, since all the players have their hands behind 
their backs. Your PET will give you clues, however. For example, 
you guess that Player Number 6 has the button. Hit the 6 key. 

Oops! Number 6 player doesn't have the button. Your PET 
obligingly tells you so, and also informs you whether the keeper of 
the button has kept it or passed it: 



■BTWHBHbs fotmmm 

1 GUESS ,— , SECONDS 



17) 



WHO ME??? 



WHO EVER HAS IT KEEPS IT 



OR 
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M»f3Kei3gi^i YOUR HVLKfibE 

ii SECONDS FOR 6 GAMES IS 

i GUESS ,— -. « SECONDS 

li ! 



y.HO ME??? 

fil \4\ 



ttY NEIGHBOR HRS IT - 

BUT yHOEVER HAS IT PASSES IT 



To make this game even more suspenseful, the seconds are tick- 
ing away on your screen; and your PET displays the number of 
guesses you've made, the time to guess the correct solution, and your 
average for all the games you play. 

You can develop a strategy to find the elusive magic button and 
cut down your time and number of guesses. You don't need X-ray 
eyes to be a successful detective. 

Level A: Still a fine beginner's game, with more challenge. 
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REM*** WORKS ON ORIGINAL PET 2001-8, 

-i NEW PET/CBM, & BASIC 4.0 

1 REM***BUTTON, BUTTON, WHO HAS THE -. 

iBUTTON*** 

2 REM***ORIGINAL PROGRAM BY LEN -. 

-iLINDSAY*** 

3 REM***(C) 1980 

4 REM***01-16-80 

5 REM*** INCLUDES HELP OPTION AND TWO -. 

-iSPEEDS FOR PRINTING INSTRUCTIONS 

6 REM*** YOUR AVERAGES ARE KEPT - AND -i 

-■CORRECT ENGLISH IS USED 

7 REM***IE...l GAME (NOT 1 GAMES) 

8 REM***THE BOX YOU GUESS LIGHTS UP - -. 

-.MESSAGES ARE IN TWO SEPERATE -. 
iPLACES. 

9 REM***USES MAIN SUBROUTINES 10100, 

-. 10500 

10 POKE59468,12 : REM GRAPHIC MODE 
15 XQ=RND(-TI) : XQ=0 : REM SEED RND 
20 PRINT "fi"; : REM CLEAR SCREEN 

30 DIM B$(7) : REM CURSOR MOVEMENT TO -i 

iBOX# 
40 DEF FNR(N)=INT(RND(1)*N+1) : REM RND# 

50 REM 

51 ZZ$=" 

-i" : REM 40 DELETE 
54 ZR$= "»>»»»»»>»»>»»>»»»»»»» " -i 
-.: REM 30 RIGHT 

56 zD$= n nnnnnnn*nnnnn n : 

-. REM 25 DOWN 

58 MS$="ii ,, +LEFT$(ZD$,12)+LEFT$(ZR$, 

-.13)+ZZ$+ZZ$ : REM START OF MESSAGE 

59 RM$="li ,, +LEFT$(ZD$,24)+ZZ$+ZZ$ : 

-, REM START OF REMARK 

61 B$(l)="ir+LEFT$(ZD$,4)+LEFT$(ZR$, 

-.19) + "l n 

62 B$(2)="Ji"+LEFT$(ZD$,7)+LEFT$(ZR$, 

-,27) + "2" 

63 B$(3) = "Ji"+LEFT$(ZD$,14)+LEFT$(ZR$, 

-,28)+"3" 

64 B$(4) = "Ji"+LEFT$(ZD$,19)+LEFT$(ZR$, 

-,24)+"4" 
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65 B$(5)="Jl"+LEFT$(ZD$,19)+LEFT$(ZR$, 

-.14) +"5" 

66 B$(6) = "]l n +LEFT$(ZD$,14)+LEFT$(ZR$, 

-.9) +"6" 

67 B$ (7 ) ="Ji ,, +LEFT$ ( ZD$, 7) +LEFT$ ( ZR$ , 

-.11) +"7" 
90 PRINT"DO YOU NEED INSTRUCTIONS?" 
92 GOSUB10130 

95 IFXA$<>"N n ANDXA$<>"Y"THEN92 

96 IFXA$="Y" THEN GOSUB 5000 : REM -> 

-.INSTRUCTIONS 

100 BN=FNR(7) : REM CHOOSE STARTING -. 

-^BUTTON LOCATION 

101 G=0 : GS=0 : SP=1 : REM INITIALIZE 
110 GOSUB 6000 : REM DRAW SCREEN BOARD 
120 TI$="000001" : REM INITIALIZE TIME 
200 GET A$ : REM GET CHOICE 

210 IF A$="" THEN 400 : REM NO KEY HIT 
215 IF A$="H" THEN TH$=TI$ :GOSUB5000 : 

-.TI$=TH$:GOSUB6000:GOTO200 : 

-i REM REPEAT 
220 A=VAL(A$) 

230 IF A=0 THEN 7100 : REM PRINT ERROR 
240 IF A>7 THEN 7100 : REM PRINT ERROR 
250 GS=GS+1 : PRINT"lrhhr ;GS : REM -. 

-.UPDATE GUESS COUNT 
255 PRINT B$(G) : REM REDO LAST BOX 
257 G=A : REM CURRENT GUESS 
260 PRINT B$(G) +"<£*" : REM LIGHT UP -> 

-.BOX CHOSEN 
270 IFG=BN THEN 7200 
280 PRINT MS$;"*»WHO ME???" 
290 GOSUB7300 : REM CHECK IF NEIGHBOR -. 

-.HAS IT 
400 GOSUB 7000 : REM UPDATE SECONDS 
410 GOTO200 : REM GET NEXT CHOICE 

4999 END 

5000 PRINT "RW; : REM INSTRUCTIONS 

5020 XX$=" BUTTON, BUTTON, WHO HAS THE i 

-.BUTTON ? " : GOSUBl 5 
5025 PRINT 
5030 XX$=" ****************************** 

_,**********« . G 0SUB 10500 
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5035 PRINT 

5040 XX$:="SEVEN OF YOUR FRIENDS ARE -. 

-.SITTING IN A" :GOSUB10500 
5045 PRINT 
5050 XX$="CIRCLE. ONE OF THEM HAS THE -. 

-.MAGIC" :GOSUB10500 
5055 PRINT 
5060 XX$="BUTTON. IT IS UP TO YOU TO -. 

-.FIND IT.":GOSUB10500 
5065 PRINT 
5070 XX $=" HOWEVER, ALL YOUR FRIENDS -. 

-.HAVE THEIR" :GOSUB10500 
5075 PRINT 
5080 XX$="HANDS BEHIND THEIR BACKS AND -. 

-.WILL DO":GOSUB10500 
5085 PRINT 
5090 XX$="THEIR BEST TO TRICK YOU.": 

-.GOSUB10500 
5095 PRINTRM$:GOSUB10100 : REM HIT -. 

-.SPACE TO CONTINUE 
5100 PRINT "fi" 
5110 XX$="YOU MUST GUESS WHO HAS THE -. 

-.MAGIC BUTTON." :GOSUB10500 
5115 PRINT 
5120 XX$="IF YOU ARE RIGHT, SUCCESS IS -. 

-iYOURS, BUT":GOSUB10500 
5125 PRINT 
5130 XX$="IF NOT, YOU ARE ALLOWED -. 

-iANOTHER GUESS. ":GOSUB1050 
5135 PRINT:PRINT 

5140 XX$="j:HOWEVER ":GOSUB10500 

5145 PRINT 

5150 XX$="AFTER EACH OF YOUR ilNCORRECTr 

-i GUESSES ":GOSUB10500 
5155 PRINT 
5160 XX $= "WHOEVER DOES HAVE THE MAGIC -. 

-.BUTTON " : GOSUB1 0500 
5165 PRINT 
5170 XX$="MAY PASS IT TO A NEIGHBOR IF -i 

-iTHEY WISH!1":GOSUB10500 
5175 PRINT 
5180 XX$="BUT, OF COURSE, THEY MAY KEEP - 

nlT TOO!!":GOSUB10500 
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5185 PRINT 

5190 XX$="TO REPEAT THESE INSTRUCTIONS -. 

-.ANSWER rHfELP":GOSUBl0500 
5195 PRINTRM$:GOSUB10100 

5999 RETURN 

6000 PRINT "fi"; : REM DRAW SCREEN BOARD 
6010 FOR X=l TO 7 

6020 :PRINT B$(X) ; 

6030 : PRINT "«L< J [U^l<iL<«iaM" 

6040 NEXT X 

6100 PRINT"Ju:THIS GAME:" 

6105 PRINT"»»»SECONDS" 

6200 PRINTMS$; n WHO HAS THE" 

6210 PRINT TAB (16) /"BUTTON?" 

6300 PRINT "Ja " ; TAB (26);" YOUR AVERAG E 

6310 PRINTTAB (24);" FOR " ; NG ; "GAME " ; 

6320 IF NGOl THEN PRINT"S"; 

6330 PRINT" IS" 

6340 PRINT"^";TAB(28) ;TS; "SECOND" ; 

6350 IFTSOl THEN PRINT"S"; 

6360 PRINT : REM CARRIAGE RETURN 

6370 PRINT TAB(28) ;TG; "GUESS"; 

6380 IFTGOl THEN PRINT"ES"; 

6 999 RETURN 

7000 PRINT "ht n i : REM PRINT SECONDS 

7010 TJ=INT(Tl/60) 

7020 PRINTTJ 

70 99 RETURN 

7100 PRINTRM$;"PLEASE ENTER THE NUMBER -i 

-.(1-7) OF THE" 
7110 PRINT"PLAYER YOU THINK HAS THE -. 

-.BUTTON." 

7199 GOTO 200 : REM GET NEXT CHOICE 

7200 PRINT MS$;"xYOU ARE RIGHT" 

7210 PRINTRM$;"IT TOOK YOU" ;TJ; "SECOND" ; 

-. : IF TJ>1 THEN PRINT"S"; 
7215 PRINT" AND" 
7220 PRINTGS; "GUESS"; : IF GS>1 THEN -i 

-.PRINT "ES"; 
7225 PRINT". DO YOU WANT TO TRY AGAIN?"; 
7230 GOSUB 10130 
7240 IF XA$="Y" THEN 7270 



702 GAMES OF DEDUCTIVE REASONING 

7250 IF XA$="N" THEN PRINT RM$; : END 
7260 GOTO7230 : REM GET REPLY AGAIN 
7270 NG=NG+1:QS=QS+TJ:QG=QG+GS : 

-i REM ADD TO TOTALS 
7280 TS=INT(QS/NG) : TG=INT(QG/NG) 
7290 GOTO 100 : REM NEW GAME 
7300 IF G-1=BN OR G+1=BN THEN 7400 : 

-, REM NEIGHBOR HAS IT 
7310 IF G=7 AND BN=1 THEN 7400 
7320 IF G=l AND BN=7 THEN 7400 
7330 GOSUB7500 : REM NEIGHBOR DOESN'T -. 

-iHAVE IT 
73 99 RETURN 

7400 PRINT RM$;"MY NEIGHBOR HAS IT - 
7410 PRINT "BUT WHOEVER HAS IT PASSES -i 

-.IT" 
7420 BN=BN+SGN(RND(l)-.5) : REM PASS IT 
7430 IF BN=0 THEN BN=7 
7440 IF BN=8 THEN BN=1 

7499 RETURN 

7500 PRINTRM$;"WHO EVER HAS IT KEEPS IT" 
7599 RETURN 

10100 IFXX$= n,, THENXX$="j: HIT SPACE TO -. 

-iCONTINUE r" : REM GET 1 CHARACTER 
10120 IFXX$<>" "THENPRINTXX$; : REM -. 

-iPRINT MESSAGE 
10130 GETXA$:IFXA$>""THEN10130:REM -. 

-■CLEAR BUFFER 
10140 GETXA$:IFXA$=""THEN10140 
10150 XA=VAL(XA$) 
10199 XX$= n ": RETURN 
10500 XL=LEN(XX$) : IF XL=0 THEN 10599 : 

-. REM ERROR - RETURN - SLOW PRINTER 
10520 FOR XX=1 TO XL 
10530 :PRINT MID$ (XX$ ,XX,1) ; 
10540 :XT=TI : REM SET TIMER 
10550 :IF XT+ 5-SP*5>TI THEN 10550 : 

-i REM 20 CAN BE VARIED FOR DIF -i 

iLENGTH PAUSE 
10560 NEXT XX 
10570 PRINT 

10599 XL=0:XT=0:XX=0:XX$=" n : RETURN 
READY . 



Hurkle 

by Mac Oglesby 



The Hurkle is a happy beast— and he'll be even happier when 
you find him! This lovable little critter loves to play hide-and-seek 
with you. He can find you much easier than you can find him. You 
can try hiding behind your PET and hope your feet don't stick out 
too much, but the HURKLE is so tiny, he can hide behind the (.) on 
your screen: 



HELLO THERE! I'M 
fl HURKLE! DO VOU 
NEED THE RULES? 



fi HURKLE IS TINV - JUST THE SIZE OF 
THIS DOT >:.). WHEN IT HIDES BEHIND 
fi DOT VOU CAN'T SEE IT. H HURKLE 
WILL HIDE BEHIND ONE OF 100 DOTS IN 
H GRID. THE GRID LOOKS LIKE THIS' 



PRESS 34UJ3ZI TO CONTINUE... 
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In Mac's presentation, the Hurkle may be hiding behind any one 
of 100 dots on your screen. These dots are arranged in a grid that 
looks like this: 



NORTH 
9 . 

6 ......... . 

5 

WEST 4 EAST 

C 1 ■»■■■■■■■■ 

c » » » ■ • •«■• ■ 

1 



12 3 4 5 6 7 8 9 
PRESS aaltfflVfto CONTINUE... 



TRV TO GUESS WHERE THE HURKLE IS 
HIDING. VOU GUESS BY TYPING IN 2 
NUMBERS. FIRST, GIVE THE DISTANCE 
OVER TO THE RIGHT FROM DOT 0,8. 
THEN GIVE THE DISTANCE UP. REMEM- 
BER; OVER, UP. AFTER EACH GUESS THE 
HURKLE WILL HELP VOU. GOOD LUCK! 

press siauiazi to start... 



Don't get discouraged! Your friend, the Hurkle, will stay put 
until you find him. He'll also help you by giving you hints and clues 
as to his whereabouts. 
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NORTH 






TRV TO 
FIND ME... 



WEST 4 EAST 



1 





O 1 2 3 4 5 6 7 S 9 
SOUTH 



OVER, UP 



To make your guess, you type in two numbers— OVER and UP. 
The first number is the distance OVER to the right from Dot 0,0. 
The second number is the distance UP from the bottom of the grid— 
for example: 4,3. 

The Hurkle-in-hiding will now begin to give you hints. After 
each guess, the Hurkle will give you directional clues, such as: 



r 


Q 




NORTH 














GO 






""7 












NORTHEAST 
















1/ 




cr 
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EAST 












OVER, UP 







1 
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NUK I H , 
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a i i 
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6 ....... Q . . 1/ 
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WEST 4 ErtST 

3 .... .... . 
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. OVER, UP 

o 

8123456789 
SOUTH 



WEST 4 



i 











•CiRT 




H 


. 


3 . 


a 3 




_! 


: 4 5 
iOUTI- 


1 




:■ '3 



SOUTH 



EhST 



OVER, UP 

1, 



Your guess is also marked on the grid to help you keep your 
bearings. Your helpful Hurkle will continue to give you clues as the 
game progresses and you narrow down the area where he is hiding. 

When you've found him, the happy Hurkle dances out to tell 
you how many guesses it took you to figure out his hiding place: 
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WbS I 4 



1 




■\ORJh 



12 3 



SOUTH 



u 

as 



4 5 6 



VOU FOUND 



ME ! ! ! 



EAST 



OVER , UP 



VOU J-OUr-iB ME NITH 



4 GUtSSES 



HhH 



! TO PLHV flGAINV i 



1/ 



Note: The Hurkle is rather shy, though very friendly, so it will re- 
main concealed behind a dot. 

You don't have to learn anything while you're playing Hurkle, 
(after all, it's a game for your enjoyment). However, you may not be 
able to help it. Cleverly concealed in this game, in addition to our 
tiny friend, are several math concepts. Playing Hurkle can help you 
understand: 

• The Cartesian Coordinate system (x,y) 

• Compass (Map) Directions— (north, south, southeast, and so on) 

• The intersection of sets— (As in the set of all points south and east 

of your guess) 

• Strategy. 
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Using your new-found knowledge, you can develop a system to 
locate the hiding Hurkle in fewer and fewer guesses. The Hurkle 
won't mind— he just wants to play. The only thing that hurts his feel- 
ings is when you give up and leave him languishing behind his dot. 
You wouldn't want to do that! 

Level A-B: This highly enjoyable game is still good for beginners. It's 
also a sophisticated learning tool for the concepts mentioned above. 



THANKS FOR PLflY- 
ING WITH ME. 
EVE FOR NOW. . . 
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100 
110 

120 

130 

140 

150 

160 

170 

180 
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200 

210 

220 

1000 
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1220 
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1400 
1990 

1995 
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HURKLE 



THIS VERSION 
(C) 1980 MAC 



OF HURKLE 
OGLESBY 



IS 



CHANGED 3/2/80: REMOVED 
SCREEN PRINT OPTION 

CHANGED 4/9/80: REMOVED EXTRA 
"THE" FROM LINE 9260 



REM *** HFTOTfr.'R *** 

REM 

REM 

REM 

REM 

REM LAST REVISION 2/15/80 16:35 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM INITIALIZATION 

POKE 59468, 12.-REM GRAPHICS MODE 

X=RND(-TI) 

PRINT "fi"; 

DIM M$(25) 

ZD$="\Wt^^hhhhhhhhhhhhhhhhhh^ n : 

-,REM 24 DOWN 
ZS$=" 

-. ":REM 40 SPACES 

ZR$="»»»»»»»»»>»»»»»» 

-.»»»»»": REM 40 RIGHT 
GI$=LEFT$(ZD$,20)+LEFT$(ZR$,32) 
FOR J=l TO 25 
:READ M$(J) 
NEXT 
REM BALLOON BORDER DIRECTIONS: 

-. BD$=DOWN, BL$=LEFT, BU$=UP 
BD$="TM n :BL$="««" :BU$="T<" 
P1=4:P1$=" i««J_ Ei««J_ -. 

-.U^«^^N":REM LARGE POINTER 
P2=2:P2$=" **«!. E^<«lM n : 

-.REM SMALL POINTER 
GOSUB 6500 
REM BALLOON SIZE: L0=LENGTH f 

-. W0=WIDTH 
REM LOCATION OF UPPER LEFT CORNER: 

-. WR=DOWN f WC=RIGHT 
GOSUB 6000 
FOR J=l TO 3 



110 GAMES OF DEDUCTIVE REASONING 

2110 : PRINT WM$;LEFT$(ZD$,2*J-1) ; : 

-,XX$= M$(J):GOSUB 10500 
2120 NEXT 
2410 GOSUB 10300 
2420 IF XA$O n Y n THEN 2900 
2430 PRINT "fi"; 
2440 WR=1:WC=1:L0=38:W0=18 
2445 GOSUB 6000 
2450 GOSUB 8500 
2460 GOSUB 7999 
2470 FOR J=l TO 6 
2480 : PRINT WM$;LEFT$ ( ZD$,2*J-1) ; : 

-.XX$=M$(J+3) :GOSUB 10500 
2490 NEXT 
2500 GOSUB 10300 
2510 GOSUB 8000 
2520 PRINT n lT;ZD$; n PRESS xRETURNr -. 

-.TO CONTINUE..."; 
2530 GOSUB 10300:PRINT "fi";:GOSUB 8500 
2540 FOR J=l TO 8 
2550 .-PRINT WM$;LEFT$(ZD$,2*J-1) ;: 

-.XX$=M$(J+9) : GOSUB 10500 
2560 NEXT 
2570 GOSUB 10300 
2900 NN=0:GOSUB 8000 
2910 WR=1:WC=28:L0=11:W0=5 
2920 GOSUB 6000 
2930 BP=P2:BP$=P2$: GOSUB 8500 
2950 FOR J=l TO 2 
2960 :PRINT WM$;LEFT$ ( ZD$, 2*J-1) ; : 

-.XX$=M$(J+17) : GOSUB 10500 
2970 NEXT 

3000 X=INT(10*RND(1) ) 
3010 Y=INT(10*RND(1)) 
3020 PRINT n lT;LEFT$(ZD$,16) ;LEFT$(ZR$, 

-.28) ; 
3030 PRINT "jlYOUR GUESS: rii<^««««OVE 

-.R,UP" 
3100 PRINT "1T;GI$;" , <«" ; 
3105 F=l 

3110 GET XA$:IF XA$<>"" THEN 3110 
3120 GET XA$ 
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3130 IP XA$O nn THEN 3300 

3180 PRINT "x £"; 

3200 GOSUB 7200 

3210 PRINT "< <"; 

3220 GOSUB 7200 

3230 GOTO 3120 

3300 IF ASC(XA$)=>48 AND ASC(XA$)<58 -. 

-iTHEN 3400 
3310 PRINT "Ji n ;ZD$; n iPLEASE TYPE A -. 

-•NUMBER FROM TO 9r";:E=l: 

-.GOTO 3100 
3400 XA=VAL(XA$) :X(F)=XA:IF F=2 THEN -. 

-.3500 
3410 F=2:IF E=0 THEN PRINT XA$; ">";: 

-.GOTO 3110 
3420 E=0: PRINT "h" ', ZD$;LEFT$ ( ZS$, 

-^39) ; n Ji ,, ;GI$;XA$; ,, > ,, ;:GOTO 3110 
3500 PRINT XA$:NN=NN+1 
3505 PRINT WM$; n t i$«<«««« 



n 

-i 



3510 IF XOX(l) OR YOX(2) THEN 3600 

3520 D$= n xYr" 

3530 GOSUB 8800 

3540 PRINT WM$; n * n ; :XX$="YOU FOUND": 

-.GOSUB 10500 
3550 PRINT WM$; n ThW"; :XX$="ME!M " : 

-.GOSUB 10500 
3560 GOTO 4000 
3600 D$="H" 
3610 GOSUB 8800 
3710 PRINT WM$;H"; :XX$= "GO": GOSUB -. 

nl0500: PRINT n W« w ; 
3720 IF Y>X(2) THEN XX$= n NORTH" : 

-.GOSUB 10500 
3730 IF Y<X(2) THEN XX $=" SOUTH " : 

-.GOSUB 10500 
3760 IF X>X(1) THEN XX$= "EAST" : GOSUB -, 

^10500 
3770 IF X<X(1) THEN XX$ = "WEST" :GOSUB -, 

il0500 
3900 GOTO 3100 
4000 REM WRAP IT UP 
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4100 FOR J=l TO 3 

4110 :GOSUB 7300 

4120 :POKE 59409,52 

4130 :GOSUB 7300 

4140 .-POKE 59409,60 

4150 NEXT 

4200 GOSUB 7500 

4300 GOSUB 6500 

4310 GOSUB 6000 

4320 FOR J=l TO 3 

4330 :PRINT WM$;LEFT$ ( ZD$,2*J-1) ; 

4340 :IF J<>2 THEN 4370 

4350 : PRINT "<- n ;STR$ (NN) ; : IF NN=1 THEN -i 

-iM$(21)=" GUESS I WANT" 

4370 :XX$=M$(J+19) :GOSUB 10500 

4380 NEXT 

4400 GOSUB 10300 

4410 IF XA$="Y" THEN 2900 :REM REPLAY 

4420 FOR J=l TO 3 

4430 : PRINT WM$ ; LEFT$ ( ZD$ , 2 * J-l ) ; LEFT$ ( Z 

iS$,17) 

4440 NEXT 

4450 FOR J=l TO 3 

4460 :PRINT WM$;LEFT$ ( ZD$,2*J-1) ; : 

iXX$=M$(J+22) : GOSUB 10500 

4470 NEXT 

4500 GOSUB 7300 

4510 PRINT n Ji ,, ;LEFT$(ZD$,14) ;LEFT$(ZR$, 

-19); 

4520 FOR J=l TO 6 

4530 :PRINT n < «1 . "j :GOSUB 7025 

4540 :PRINT "<• «."} .-GOSUB 7025 

4550 .-PRINT "< «i." j -.GOSUB 7100 

4560 NEXT 

4570 GOSUB 7300 

4580 PRINT "< - 

4590 GOSUB 7500 

4600 PRINT "ft" .-END 

6000 REM 

6010 MD$=LEFT$(ZD$,WR) :MR$=LEFT$ ( ZR$, 

-.WC+1) :WM$="1T+MD$+MR$ 

6020 RETURN 
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6500 REM HURKLE 'S ENTRANCE 

6600 GOSUB 7500 

6610 PRINT "fi"; 

6620 PRINT LEFT$(ZD$,14) ; 

6630 PRINT"."; 

6640 GOSUB 7100 

6700 FOR J=l TO 6 

6710 : PRINT n < T.";:GOSUB 7050 

6720 :PRINT "< .";:GOSUB 7050 

6730 :PRINT n < *.";:GOSUB 7100 

6740 NEXT J 

6750 GOSUB 7800 

6800 WR=1:WC=17:L0=19:W0=7 

6810 PRINT "Ji"; 

6820 BP=Pl:BP$=Pl$:GOSUB 8500 

6830 GOSUB 7999 

6900 RETURN 

7000 REM VARIOUS DELAYS 

7025 FOR Z=l TO 25 : NEXT .-RETURN 

7050 FOR Z=l TO 50: NEXT: RETURN 

7100 FOR Z=l TO 100: NEXT: RETURN 

7200 FOR Z=l TO 200: NEXT: RETURN 

7300 FOR Z=l TO 300: NEXT: RETURN 

7500 FOR Z=l TO 500: NEXT: RETURN 

7800 FOR Z=l TO 800: NEXT: RETURN 

7999 FOR Z=l TO 999 : NEXT: RETURN 

8000 REM PRINT BOARD 

8100 PRINT "fi" ;LEFT$(ZR$, 13) ; "NORTH" 

8120 FOR J=9 TO STEP-1 

8130 :IF J=4 THEN PRINT "WEST 4 . . 

-. EAST":GOTO 8180 

8140 :PRINT TAB (4); J;" 



8180 PRINT 
8200 NEXT 

8220 PRINT TAB(7);"0 12345678 9" 
8230 PRINT 

8240 PRINT TAB ( 13 ); "SOUTH" 
8490 RETURN 

8500 REM PRINT SPEECH BALLOONS 
8510 PRINT "Ji";LEFT$(ZR$,WC) ;LEFT$(ZD$ f 
-.WR) ; 
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8600 FOR Jl=l TO L0:PRINT "I"; .-NEXT Jl 
8610 FOR Jl=l TO W0-1:PRINT "&";BD$;: 

-.NEXT Jl: PRINT "&"; 
8620 FOR Jl=l TO L0: PRINT BL$;"£";: 

-.NEXT Jl: PRINT BL$; 
8630 FOR Jl=l TO W0-1:PRINT "_L";BU$;: 

-.NEXT Jl: PRINT "J_" 
8700 PRINT n Ji n ;LEFT$(ZR$ f WC+BP) ;LEFT$(ZD 

-<$ f WR+W0-l) ; 
8710 PRINT BP$ 
8750 RETURN 
8800 REM UPDATE BOARD 
8850 PRINT "h"; 

8860 PRINT LEFT$(ZD$,19-2*X(2)) ; 
8870 PRINT LEFT$(ZR$,7+2*X(1) ) ; 
8880 PRINT D$ 
8890 RETURN 
8990 RETURN 
9000 REM 
9100 DATA HELLO THERE 1 I'M, A HURKLE! -. 

-.DO YOU , NEED THE RULES? 
9120 DATA "A HURKLE IS TINY £ JUST THE -. 

-.SIZE OF" 
9130 DATA THIS DOT (.). WHEN IT HIDES -. 

-.BEHIND 
9140 DATA A DOT YOU CAN'T SEE IT. A -. 

-.HURKLE 
9150 DATA WILL HIDE BEHIND ONE OF 100 -. 

-.DOTS IN 
9160 DATA "A GRID. THE GRID LOOKS LIKE -. 

-iTHIS:" 
9170 DATA "IMPRESS xRETURNr TO -. 

-.CONTINUE..." 
9200 DATA TRY TO GUESS WHERE THE HURKLE -, 

-.IS 
9210 DATA HIDING. YOU GUESS BY TYPING -. 

-.IN 2 
9220 DATA "NUMBERS. FIRST, GIVE THE -. 

-.DISTANCE" 
9230 DATA "OVER TO THE RIGHT FROM DOT 0, 

10." 
9240 DATA "THEN GIVE THE DISTANCE UP. -. 

-iREMEM-" 
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9250 DATA "BER; OVER, UP. AFTER EACH -. 

-.GUESS THE" 
9260 DATA HURKLE WILL HELP YOU. GOOD -i 

iLUCK ! 
9270 DATA "^PRESS uRETURNr TO START..." 
9300 DATA TRY TO, FIND ME... 
9400 DATA YOU FOUND ME WITH," GUESSES! 

nWANT" 
9410 DATA TO PLAY AGAIN? 
9420 DATA THANKS FOR PLAY-,ING WITH ME. 

-.BYE FOR NOW. . . 
10000 REM GET 1 CHARACTER 
10300 GET XA$:IF XA$<>"" THEN 10300 
10310 GET XA$:IF XA$="" THEN 10310 
10350 RETURN 
10500 REM SLOW PRINTER 
10520 FOR XX=1 TO LEN(XX$) 
10530 :PRINT MID$(XX$,XX,1) ; 
10550 :FOR K=l TO 25:NEXT K 
10560 NEXT XX 
10599 RETURN 
READY . 



Martian Hunt 

by Len Lindsay 



One of the reasons Len invented Martian Hunt is that he got 
tired of all those spacewar games where your mission is to ZAP some 
unfortunate alien. If you turned to this page because you were in the 
mood to ZAP all those dirty Martians before they ZAP us, it's time 
for you to shift gears. Martians can in fact be devious and deadly. 
(See The Martian Chronicles by Ray Bradbury.) However, there's no 
more reason to worry about wiping out Martians, because it's all 
been taken care of. A colonist from Earth left the germs of the com- 
mon cold, along with a beer can and a crumpled take-out container 
from the Interterrestrial Golden Arches. The Martians sneezed them- 
selves to death. All but one. Your mission is to capture this danger- 
ous, but precious, Martian— unharmed. It's our only chance to learn 
about their culture and accomplishments. This mission is of vital im- 
portance to our knowledge of Outer Space. Captain, we're depending 
on you. 



THIS IS MART I AN HUNT: 
CAPTURE THE DEADLY MARTIAN 
... IF VOU DARE 



®\wm^-\*^mimmiMU[ii> 
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YOU ARE THE CAPTAIN OF A ST'ARSHIP 
ORB ITT I NG THE PLANE T MARS. IT IS VOUR 
MISSION TO CAPTURE THE LAST REMAINING 
MARTIAN. SINCE IT IS THE LAST OF THEIR 
KIND VOU OF COURSE WILL NOT ATTEMPT TO 
KILL IT, EVEN THOUGH IT IS EXTREMELY 



DEADLY. 



A scientist from your ship has developed a special fiber that 
changes energy levels when it comes into contact with the Martian. 
The fiber is in the shape of a circular net. As you may have guessed, 
the special fiber is very expensive to manufacture, and you're on a 



IT WILL NOT BE EASV TO CAPTURE THE 
MARTIAN. IT IS INVISIBLE, AND CAN NOT 
BE SEEN OR DETECTED EVEN BV VOUR MODERN 
SC ANN I NG ECU I PMEN T . HOWEVER , VOUR SH I PS 
SCIENTIST HAS PERFECTED A TVPE OF NET 
MADE OF FIBERS FROM A FORCE FIELD 
THAT CHANGE ENERGY LEVELS IF THEY 
CONTACT THE MARTIAN. 



mntMazzmmimammiimm 
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HE CAN MAKE THESE NETS ONLY IN CIRCULAR 
SHAPE WITH A RADIUS THAT IS AN 
INTEGER. HE WILL MAKE AS MANY OF THESE 
NETS AS VOU NEED.. BUT THEV ARE VERY 
EXPENSIVE. THUS VOU SHOULD TRY TO USE 
VERY FEW NETS. YOU CHOOSE THE EXACT 
POINT TO DROP THE NET, AND SPECIFY 
ITS RADIUS. 



■HtflHsRHaMtfUEtiiJSIftUllj: 



strict budget from the OGDOD (Outer Galactic Department of De- 
fense). 

Not only do you have to capture the Martian alive, but you 
have to do it with the fewest number of nets and with the smallest 
net possible! 



AFTER THE NET IS DROPPED YOUR SCANNER 
CAN MONITOR ITS ENERGY LEVEL. IF IT IS 
HIGH VOU HAVE HIT THE MARTIAN 
•::THE EDGE OF THE NET HIT HIM 
OR IT IS COMPLETELY INSIDE THE NET). 
THE RADIUS OF THE NET WILL BE PLOTTED 
AT YOUR DROP POINT. IF VOU SCORED A 
HIT IT WILL BE IN REVERSE FIELD LIKE A 
IF VOU MISSED IT WILL BE PRINTED LIKE 
THIS: 5. 
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To do this, you drop nets in strategic locations and then narrow 
down the Martian's exact location. To drop a net, you maneuver 
your ship (the cursor) over the spot where you want the center of 
your net to be. Hit 5 to activate the drop process. You then specify 
the radius of the circular net you want dropped (0-9). The net is 
dropped, and you receive a report on whether it hit or missed: 



VOU SHOULD CHOOSE VOUR NET SIZE WITH 
CARE. DROP THEM AT STATEGIC LOCATIONS. 
ONCE VOU THINK VOU KNOW ITS EXACT 
LOCATION VOU MUST TELEF'ORT IT" INTO 
VOUR SHIPS SPECIALLV DESIGNED CAGE. 
TO DO THIS, CHOOSE ITS LOCATION AS THE 
DROP POINT. THEN SPECIFV A RADIUS OF 
ZERO U3>. THIS TRIGGERS THE TELEPORTER. 

VOUR SCORE WILL BE CONSTANTLY MONITORED. 
■:itMKsr:I«attfiMiii]2ltKLIJ:*l 
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This mission is a real challenge! To make it a little easier, you 
should be aware that the Martian will not attack you, because it 
senses that you're not trying to kill it. It will also stay in the same 
place— (why not? it knows it's invisible). 

Captain Lindsay also recommends that you take along into 
space a piece of graph paper to help you with your strategy. Draw 
the circles of the nets you've dropped. Color in the ones that missed 
and eliminate those areas. Try different methods of narrowing down 
the Martian's location to one spot. Can you come up with a fool- 
proof strategy? Meanwhile, you'll be learning about intersecting 
circles. Captain, bring him back alive! 

Martian Hunt is designed for all PET models, old and new. Lines 
20 and 21 were added specifically for the new 80-column CBM 8032 
and 8016. 

Businesspeople in Outer Space may have some small problems. 
If you have a Business Model Keyboard, replace the symbol for "pi" 
(n) in Line 507 with the value 3.14159. Type: 

507 NC=INT(3.14*R*R) 

Lines 6020, 6030, and 6050 use a SHIFT "&" for a gray box. 
Replace it with any other character of your choice. 

Level B: This game isn't easy, but it's so much fun! 



REM*** WORKS ON PET 2001-8, NEW -. 

-.PET/CBM, & BASIC- 4.0 

1 REM***MARTIAN HUNT*** 

2 REM*** ORIGINAL PROGRAM BY LEN LINDSAY 

3 REM***01-18-80 

4 REM***(C) 1980 

5 REM***USES MAIN SUBROUTINES 10100, 

i 10500 
10 POKE59468 f 12 : REM GRAPHIC MODE 
15 XQ=RND(-TI) : REM SEED RND 
20 PRINT"fi n ; : REM CLEAR SCREEN 
40 DEF FNR(N)=INT(RND(1)*N+1) : REM RND# 

50 REM 

51 ZZ$= n " : 

-. REM 21 DELETE 



122 GAMES OF DEDUCTIVE REASONING 

54 ZR$= "»»»»»»»»»»»»»»» ■ 
-.: REM 30 RIGHT 

56 ZD$= n l++iW++it1riittWWW : 

-. REM 22 DOWN 
58 ZS$=" " : 

-n REM 21 SPACE 
60 RM$="Ji I, +ZD$+ZS$+ZZ$ 

89 IFNO0THEN100 

90 PRINT"DO YOU NEED INSTRUCTIONS?" : 

-i GOSUB 10130 
95 IFXA$="Y"THEN GOSUB 5000 : REM -. 

-■INSTRUCTIONS 
100 X0=FNR(10) : Y0=FNR(10) : REM PICK -. 

-■HIDDEN POINT 
105 ND=0 :REM INITIALIZE 
110 GOSUB 6000 : REM DRAW BOARD 
120 X=5 : Y=5 : REM INIT STARTING -. 

iLOCATION OF MARKER 
200 ML=32768+80*(Y-1)+2*(X-1) : REM -. 

-■CURRENT MARKER LOCATION 
210 MC=PEEK(ML) : REM MARKER CHARACTER 
220 POKE ML f 81 : REM HIGHLIGHT MARKER -. 

-.LOCATION 
230 GOSUB 10140 : REM GET NEXT MARKER -. 

-.MOVE 
240 POKE ML f MC : REM RETURN MARKER -. 

-.LOCATIN TO NORMAL 
250 IF XA=0 THEN 220 : REM ILLEGAL -. 

iCHOICE 
260 ON XA GOSUB 310 ,320 ,330 ,340 f 350 , 360 , 

-.370,380,390 
270 IF XA=5 THEN POKEML, 81 :GOTO400 : 

-. REM GET RADIUS NEXT 
280 IFX>10 THEN X=10 
285 IFY>10 THEN Y=10 
290 IFX<1THEN X=l 
295 IFY<1THEN Y=l 
300 GOTO200 

310 X=X-1:Y=Y+1: RETURN 
320 Y=Y+1: RETURN 
330 X=X+1:Y=Y+1: RETURN 
340 X=X-1: RETURN 
350 RETURN 
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360 X=X+1: RETURN 

370 X=X-1:Y=Y-1: RETURN 

380 Y=Y-1: RETURN 

390 X=X+1:Y=Y-1: RETURN 

400 GOSUB7000 : REM CLEAR RIGHT AREA 

405 PRINT 'V; 

410 F0RZ=9T01 STEP -1 

420 : PRINT TAB (24) ;Z 

430 :PRINT 

440 NEXT Z 

450 PRINT TAB(22);"OR (TELEPORT) " 

460 PRINT 

465 PRINT TAB(21);"OR rXr (CANCEL DROP)" 

466 PRINT 

470 PRINT TAB(22) ; "rWHAT RADIUSr?" 

480 GOSUB10130 

485 IFXA$="X"THEN GOSUB7000: GOSUB6800 : 

-i POKEML f MC:GOTO200 : REM REDO DROP 
490 IF XA=0 AND XA$<>"0" THEN 480 
495 ND=ND+1 : REM UPDATE NET DROP COUNT 
500 POKE ML, 42 
505 R=XA : REM RADIUS 
510 GOSUB7200:REM CHECK IF IN NET 
515 GOSUB7000:REM CLEAR RIGHT AREA 
517 IFR=0 THEN GOSUB 7300 : GOTO 525 : 

-i REM TELEPORTER ON 
520 PRINTRM$;"NET RADIUS" ;R;NT$ 
525 PRINT:GOSUB7100:REM UPDATE NET 
530 GOSUB6800 
540 GOTO200 

4999 END 

5000 PRINT"fi"; : REM INSTRUCTIONS 

5005 PRiNT ,, ThhhhhhW 

5010 XX$="THIS IS MARTIAN HUNT:" : 

-i GOSUB10500 
5015 PRINT 
5020 XX$="CAPTURE THE DEADLY MARTIAN" • 

-i GOSUB 10500 
5025 PRINT 

5030 XX$="...IF YOU DARE" : GOSUB 10500 
5035 PRINT RM$; 
5040 GOSUB10100 
5100 PRINT"fi"; 
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5110 XX$="YOU ARE THE CAPTAIN OF A -. 

-.STARSHIP" : GOSUB 10500 
5115 PRINT 
5120 XX$="ORBITTING THE PLANET MARS. IT 

iIS YOUR" : GOSUB 10500 
5125 PRINT 
5130 XX$= "MISSION TO CAPTURE THE LAST -. 

-iREMAINING" : GOSUB 10500 
5135 PRINT 
5140 XX$= "MARTIAN. SINCE IT IS THE LAST 

-iOF THEIR" : GOSUB 10500 
5145 PRINT 
5150 XX$="KIND YOU OF COURSE WILL NOT -i 

-^ATTEMPT TO" : GOSUB10500 
5155 PRINT 
5160 XX$="KILL IT, EVEN THOUGH IT IS -. 

-•EXTREMELY" : GOSUB10500 
5165 PRINT 

5170 XX $=" DEADLY." : GOSUB 10500 
5180 PRINT RM$; 
5190 GOSUB 10100 
5200 PRINT"fi"; 
5210 XX$="IT WILL NOT BE EASY TO -. 

-.CAPTURE THE" : GOSUB 10500 
5215 PRINT 
5220 XX$="MARTIAN. IT IS INVISIBLE, 

-. AND CAN NOT" : GOSUB 10500 
5225 PRINT 
5230 XX$="BE SEEN OR DETECTED EVEN BY -> 

iYOUR MODERN" : GOSUB 10500 
5235 PRINT 
5240 XX$= "SCANNING EQUIPMENT. HOWEVER, 

-i YOUR SHIPS" : GOSUB 10500 
5245 PRINT 
5250 XX$="SCIENTIST HAS PERFECTED A -. 

-.TYPE OF NET" : GOSUB 10500 
5255 PRINT 
5260 XX$="MADE OF FIBERS FROM A FORCE -> 

-iFIELD" : GOSUB 10500 
5265 PRINT 
5270 XX$="THAT CHANGE ENERGY LEVELS IF - 

-.THEY" : GOSUB 10500 
5275 PRINT 
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5280 XX$="CONTACT THE MARTIAN." : 

-. GOSUB 10500 
5290 PRINTRM$; 
5295 GOSUB 10100 
5300 PRINT"fi"; 
5310 XX$="HE CAN MAKE THESE NETS ONLY -i 

-.IN CIRCULAR" : GOSUB 10500 
5315 PRINT 
5320 XX$="SHAPE WITH A RADIUS THAT IS -i 

-.AN" : GOSUB 10500 
5325 PRINT 
5330 XX$="INTEGER. HE WILL MAKE AS MANY -. 

-.OF THESE" : GOSUB 10500 
5335 PRINT 
5340 XX$="NETS AS YOU NEED, BUT THEY -i 

-.ARE VERY" : GOSUB 10500 
5345 PRINT 
5350 XX$="EXPENSIVE. THUS YOU SHOULD -i 

-.TRY TO USE" : GOSUB 10500 
5355 PRINT 
5360 XX $= "VERY FEW NETS. YOU CHOOSE THE -i 

-.EXACT" : GOSUB 10500 
5365 PRINT 
5370 XX$="POINT TO DROP THE NET, 

-i AND SPECIFY" : GOSUB 10500 
5375 PRINT 

5380 XX$="ITS RADIUS." : GOSUB 10500 
5390 PRINTRM$; 
5395 GOSUB10100 
5400 PRINT"fi"; 
5410 XX $= "AFTER THE NET IS DROPPED YOUR -. 

-iSCANNER" : GOSUB 10500 
5415 PRINT 
5420 XX$="CAN MONITOR ITS ENERGY LEVEL. -. 

-.IF IT IS" : GOSUB 10500 
5425 PRINT 
5430 XX$= n HIGH YOU HAVE HIT THE -. 

-.MARTIAN" : GOSUB 10500 
5435 PRINT 
5440 XX$="(THE EDGE OF THE NET HIT HIM" -. 

-.: GOSUB 10500 
5445 PRINT 
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5450 XX$="OR IT IS COMPLETELY INSIDE -. 

-.THE NET)." : GOSUB 10500 
5453 PRINT 
5455 XX$="THE RADIUS OF THE NET WILL BE -. 

-iPLOTTED" : GOSUB 10500 
5457 PRINT 
5460 XX$="AT YOUR DROP POINT. IF YOU -. 

-.SCORED A" : GOSUB 10500 
5463 PRINT 
5465 XX$="HIT IT WILL BE IN REVERSE -. 

-.FIELD LIKE j:5r." : GOSUB 10500 
5467 PRINT 
5470 XX$="IF YOU MISSED IT WILL BE -i 

-.PRINTED LIKE" : GOSUB 10500 
5473 PRINT 

5475 XX$="THIS: 5." : GOSUB 10500 
5490 PRINTRM$; 
5495 GOSUB 10100 
5500 PRINT n fi n ; 
5510 XX$="YOU SHOULD CHOOSE YOUR NET -. 

-.SIZE WITH" : GOSUB 10500 
5515 PRINT 
5520 XX $= "CARE. DROP THEM AT STATEGIC -. 

iLOCATIONS." : GOSUB 10500 
5525 PRINT 
5530 XX$="ONCE YOU THINK YOU KNOW ITS -. 

-nEXACT" : GOSUB 10500 
5535 PRINT 
5540 XX $=" LOCATION YOU MUST TELEPORT IT -. 

-.INTO" : GOSUB 10500 
5545 PRINT 
5560 XX$="YOUR SHIPS SPECIALLY DESIGNED -, 

-.CAGE." : GOSUB 10500 
5565 PRINT 
5570 XX$="TO DO THIS, CHOOSE ITS -. 

-.LOCATION AS THE" : GOSUB 10500 
5573 PRINT 
5575 XX$="DROP POINT. THEN SPECIFY A -. 

-.RADIUS OF" : GOSUB 10500 
5577 PRINT 
5580 XX$="ZERO (0). THIS TRIGGERS THE -. 

-.TELEPORTER. " : GOSUB 10500 
5585 PRINT:PRINT 
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5587 XX$="YOUR SCORE WILL BE CONSTANTLY -. 

-.MONITORED." : GOSUB 10500 
5590 PRINTRM$; 
5595 GOSUB 10100 

5999 RETURN 

6000 PRINT"fi"; : REM DRAW BOARD 
6010 FOR Z=l TO 10 

6020 ;PRINT" W WWWWWWWWW & " 

6030 :PRINT" i" 

6040 NEXT Z 

6050 PRINT" r&&MARTIAN&&&HUN T&&&&& " 

6800 PRINT"Ji"; 

6810 PRINTTAB(23) ;" USE KEYPAD" 

6820 PRINTTAB(23) ; "TO MOVE YOUR" 

6830 PRINTTAB(23) ;" SHIP (0.) " 

6840 PRINT 

6850 PRINTTAB(23) ;" 7 8 9" 

6860 PRINTTAB(23) ;" \ * / " 

6870 PRINTTAB(23) ;" \1/ " 

6880 PRINTTAB(23);" 4~1*££6" 

6890 PRINTTAB(23) ;" /!\ " 

6900 PRINTTAB(23) ;" / ! \ " 

6910 PRINTTAB(23) ;" 1 2 3" 

6920 PRINT 

6930 PRINTTAB(23) ; "HIT 5 WHEN YOU" 

6940 PRINTTAB(23) ;" ARE AT YOUR " 

6950 PRINTTAB(23) ;" DROP POINT" 

6999 RETURN 

7000 PRINT"Ji"; :REM CLEAR RIGHT AREA 
7010 F0RZ=1 TO 23 

7020 :PRINTTAB(21) ;LEFT$ (ZS$,18) 
7030 NEXT Z 

7099 RETURN 

7100 PRINT ND;" NET"; : IFNDOlTHENPRINT"S 

-i"; 

7110 PRINT" DROPPEDJi" 

7199 RETURN 

7200 D2=(X0-X)*(X0-X)+(Y0-Y)*(Y0-Y) : 

-i REM DISTANCE VALUE FROM DROP TO -. 
-.MARTIAN 
7210 R2=R*R : REM DISTANCE VALUE OF -. 
-.RADIUS OF NET 
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7220 NT$="MISSED n :POKEML,XA+48:IF -. 

->R2=>D2 THEN NT$="iHITr " : POKE ML f 
-. XA+48+128 

7299 RETURN 

7300 PRINTRM$;"TELEPORTER ";NT$ 
7310 IFD2=0THEN7400 

7399 RETURN 

7400 PRINT "h"; : REM WINNER***** 
7410 FORZ=1TO10 

7420 :PRINTTAB(22) ;"*********" 

7430 :PRINTTAB(23) ; n xYOU WON" 

7440 NEXTZ 

7450 PRINTTAB(22) ;"*********" 

7460 PRINT HtcDO YOU WANT TO PLAY -. 

-iAGAIN?" 
7470 GOSUB10130 
7480 IFXA$="Y n THENRUN 

7490 IFXA$= n N n THENPRINT n TTTTTT"; : END 
7495 GOTO7470 
9999 END 
10100 IFXX$= nn THENXX$= n JL HIT SPACE TO -. 

-.CONTINUE f" : REM GET 1 CHARACTER 
10120 IFXX$<>" "THENPRINTXX$; : REM -. 

-.PRINT MESSAGE 
10130 GETXA$:IFXA$>""THEN10130:REM -. 

-.CLEAR BUFFER 
10140 GETXA$:IFXA$=""THEN10140 
10150 XA=VAL(XA$) 
10199 XX$= nn : RETURN 
10500 XL=LEN(XX$) : IF XL=0 THEN 10599 : 

-i REM ERROR - RETURN - SLOW PRINTER 
10520 FOR XX=1 TO XL 
10530 :PRINT MID$(XX$,XX,1) ; 
10540 :XT=TI : REM SET TIMER 
10550 :IF XT+5*SP>TI THEN 10550 : 

-. REM THE 5 CAN BE VARIED FOR DIF -. 

-.LENGTH PAUSE 
10560 NEXT XX 

10570 PRINT: REM CARRIAGE RETURN 
10599 XL=0 :XT=0 :XX=0 :XX$= nn : RETURN 
READY. 



The Code Game 

(By Permission of Peter Weiler) 



This fascinating exercise in logic, deduction, and espionage pits 
your spying skills against your PET. You can alternate the roles of 
code maker and code breaker to become a well-rounded secret agent. 

As code maker, you invent a secret code and provide clues. As 
code breaker, you make use of these clues to decipher or "break" the 
code. The code itself is a row of symbols. To break the code, you 
must guess the position of each symbol in the row. 

You may choose what symbols the code maker may use and 
how many places there are in a row. A beginner may want to use 3 
places and 4 symbols; 4 places and 6 symbols are the most typical 
choice. A veritable Mastermind™ (Mastermind is a registered trade- 
mark of Invicta Plastics Ltd.) can play with as many as 7 places in a 
row and up to 9 symbols. 

Here's a sample of the code-breaking process-. 
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Here's what happened. As the code breaker makes guesses, the 
code maker provides two clues. These are the number of place 
matches (P) and the number of symbol matches (S). The number of 
place matches (P) is the number of places in which the symbol ap- 
pears in both the code and your guess. The number of symbol 
matches (S) is the number of times that the code and your guess have 
matching symbols in different places. 

You have a maximum number of 15 (fifteen) guesses before 
you must concede defeat to the Other Side. Of course, you want to 
break the code with as few tries as possible. 

Before you begin your adventure in espionage, Spymaster 
Weiler advises you to study the sample game and think of The Rule 
of Counting Matches. The following paragraph provides an example. 

The * at the beginning of the code cannot form a symbol-match 
with the * at the end of the first guess, because the * in the code is 
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part of a place match with the first symbol of the guess. In the sec- 
ond guess, only one of the two @s can be matched because there is 
only one @ in the secret code. However, both #s in the third guess 
are part of matches because there are two #s in the secret code. 

In this sample, the code breaker chooses his guesses by examin- 
ing the possible codes until he finds one that is consistent with the 
clues he's received. You don't have to examine all possible codes. If 
you find that the first few symbols of a code are inconsistent with 
the clues, you can skip over all codes that begin with these symbols 
in one step. Got that, Agent 007? 

Classified Information: Owners of 8K PET Models should eliminate 
the REM statements from the program, and any extra spaces in the 
lines. This program will just fit into your PET. 

Comments from the Research Department: 

Cryptography: sending secret messages (code-making) 

Cryptanalysis-. deciphering secret messages (code-breaking) 

Steganography-. methods of concealing secret messages (such as 
microdots) 

Codes operate on complete words and phrases. Ciphers operate 
on single letters. 

Plain Text Codenumber Codeword 

a, an 9213 HXOF 

"Cryptography and cryptanalysis are sometimes called recipro- 
cal sciences . . . what one does the other undoes . . . Cryptography is 
theoretical and abstract. Cryptanalysis is empirical and concrete. 

"It would not be an exaggeration to state that abstract cryptog- 
raphy is identical with abstract mathematics . . . The transformations 
are generally of a simple mathematical nature e.g. permutation in the 
set of primary elements (the alphabet); coordinate transformations, 
and so on." 

"Different ciphers like different geometries, yield results that 
are different but equally valid." 



David Kahn, The Codebreakers, New York, 1967; and Bruce Norman, The 
Secret War, Washington D.C., 1973. 
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"Cryptanalysis is like the physical sciences— it rests, not upon 
the unchanging verities of mathematical logic, but upon observable 
facts." 

The cryptanalyst uses the same methods as the physical scien- 
tist: experimentation, measurement, analysis, hypothesis, prediction, 
verification. 

Level C: This game should occupy you for hours before you send in 
your application to John Le Carre. 



REM*** WORKS ON ORIGINAL PET 2001-8, 

-. NEW PET/CBM, BASIC 4.0 , & CBM -. 
-.8032 & 8016 

1 REM*** THE CODE GAME (C) 1980 P WEILER 

2 REM*** TO FIT INTO 8K DO NOT TYPE IN -. 

-.ANY EXTRA SPACES IN THE LINES AND 

3 REM*** DO NOT ENTER ANY REMS 

8 REM*** 04-15-80 

9 REM*** USES MAIN SUBROUTINES 10100 & -. 

-.10200 

10 PRINT "fi****** THE CODE -. 

-.GAME***" 
20 PRINT" BY PETER R. WEILER*": 

-.REM MADISON, WI 53706 
30 POKE59468 f 12 
50 ZL$= n ««««« n 
100 REM CHOOSE PLAY OPTION 
120 PRINT"*YOU MAY CHOOSE TO BE": 

-.PRINT"* 1. THE CODE BREAKER" 
130 PRINT" 2. THE CODE MAKER": 

-.PRINT" 3. BOTH ALTERNATELY*" 
140 XX$="YOUR CHOICE (TYPE l f 2 OR 3)?": 

-.GOSUB10100 :OP=XA:PRINTOP 
160 PRINT"ri"; :IFOP<1OROP>3THEN120 
300 REM INITIALIZATIONS 
320 XX$="***HOW MANY PLACES IN A CODE?": 

-<GOSUB10100:NP=XA:PRINTNP 
330 IFNP<lTHENPRINT"ri":GOTO320 
340 IF NP>7 THEN PRINT"fiPLEASE, NO MORE - 

-.THAN 7":GOTO 320 



132 GAMES OF DEDUCTIVE REASONING 

360 XX$="WHOW MANY DIFFERENT SYMBOLS?" 

-<:GOSUB10100:NS=XA:PRINTNS 
370 IFNS<2THENPRINT"fi" :GOTO360 
380 IF NS>9 THEN PRINT "fiPLEASE, NO MORE • 

-.THAN 9": GOTO 360 
400 MR=15:REM SET MAX NUMBER OF ROWS -. 

-.(GUESSES) 
420 DIM S$(NS) ,RW%(NP,MR) ,PM%(MR) , 

->SM%(MR) ,PS%(MR) , ZC%(NS) 
440 IF 0PO2 THEN DIM SC% (NP) , ZG% (NS) 
460 IF 0PO1 THEN DIM TC% (NP) ,TB% (MR) , 

-.TA%(MR) ,S%(NS) , ZR%(NS,MR) 
520 GOSUB 8220 :REM GOTO SELECT SYMBOLS -. 

-.SUBR. 
600 REM SET CODE BREAKER FLAG 
620 CB$="YOU":IF OP=2 THEN CB$="ME" 
640 IF 0PO3 GOTO 720 
660 XX$="fiWDO YOU WANT TO BE CODE -. 

-.BREAKER FIRST?" :GOSUB10100 :A$=XA$ 
665 PRINT "fi" 

670 IFA$<>"N" AND A$<>"Y" THEN 660 
680 IF A$<>"Y" THEN CB$="ME" 
700 REM INITIALIZE SCORES, PENALTY-FLAG, 

-.QQ FLAG 
720 YG=0:YS=0:MG=0:MS=0:PN$="NONE":QQ=0 
1000 REM MAIN LOOP 
1020 IF CB$="YOU" THEN GOSUB 2020: 

-.GOTO 1060 
1040 IF CB$="ME" THEN GOSUB 5020 
1060 IF PN$O"N0NE" GOTO 1220 
1080 REM UPDATE SCORES 

1100 IF CB$="YOU" THEN YS=YS+NR: YG=YG+1 
1120 IF CB$="ME" THEN MS=MS+NR:MG=MG+1 
1140 IF 0PO3 GOTO 1320 
1160 IF CB$="YOU" THEN CB$="ME": 

-.GOTO 1320 
1180 CB$="YOU":GOTO 1320 
1200 REM HANDLE PENALTY 
1220 PRINT'^THIS GAME WILL NOT COUNT, 

-. EXCEPT THAT" 
1240 IF PN$="YOU" THEN PRINT"YOU ARE " ; : 

-.YS=YS+3 
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1260 IF PN$="ME" THEN PRINT"I AM " ; : 

-.MS=MS+3 
1280 PRINT"ASSESSED A 3 GUESS PENALTY.": 

tPN$="NONE n 
1320 IF YG+MG<=0 THEN1400 
1330 PRINT"*W, "SCOREBOARD*" 
1340 PRINT" " r "# OF" f "# OF" f "AVE # OF": 

iPRINT" PLAYER" , "GAMES " , "GUESSES " , 

-•"GUESSES" 
1360 IF YG>0 THEN PRINT"*YOU", YG, YS, 

-.INT(100*YS/YG)/100 
1380 IF MG>0 THEN PRINT"*ME" ,MG,MS, 

-.INT(100*MS/MG)/100 
1390 PRINT:PRINT 
1400 PRINTrPRINT 
1420 XX$="DO YOU WANT TO REVIEW THIS -. 

-■LAST GAME?":GOSUB10100:PRINTXA$ 
1440 IFXA$="Y" THEN GOSUB7020 
1460 XX$="*DO YOU WANT TO PLAY ANOTHER -. 

-iGAME?":GOSUBl0100:PRINTXA$ 
1480 IFXA$="Y n GOTO 1020 
1500 PRINT"^GOODBYE":END 
2000 REM CODE MAKER SUBR 
2020 NR=0:REM INITIALIZE GAME 
2040 FOR S=1T0 NS:ZG%(S)=0:ZC%(S)=0: 

-.NEXTS 
2060 FOR R=1T0 MR:PM% (R) =0 :SM% (R) =0 : 

->PS%(R)=0 
2080 FOR P=1T0 NP:RW%(P f R)=0:NEXTP:NEXTR 
2100 FOR P=l TO NP:SC%(P)=1+INT(NS*RND(1 

2120 ZC%(SC%(P) )=ZC%(SC%(P))+1:NEXTP 
2130 PRINT "fi^^WHEN AND IF YOU WANT TO -. 

-.QUIT GUESSING" 
2140 PRINT"TYPE 'Q' OR 'QUIT 1 . TYPE 'D 1 -. 

-.OR" 
2150 PRINT"' DISPLAY 1 TO DISPLAY BOARD -. 

-.AGAIN.*" 
2160 GOSUB 8520 
2180 PRINT"**! HAVE SELECTED MY SECRET": 

-.PRINT "CODE. WHAT IS YOUR FIRST" 
2200 REM INPUT GUESS ROUTINE 
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2220 XQ$="GUESS":GOSUB10200:G$=XA$: 

-,IFG$="2 n THENPRINT"T"; :XP$="2 

-.":GOTO2220 
2240 IF G$="D" OR G$= "DISPLAY" THEN -. 

-iGOSUB7020:GOTO 2220 
2280 IF G$="Q" OR G$="QUIT" THEN -. 

-.PRINT "fi\H":GOSUB 7920 : PN$="YOU" : 

-■RETURN 
2320 R=NR+1:REM NEXT CRACK THE GUESS 
2340 I=0:FOR P*1T0 NP 
2360 1=1+1: IF I>LEN(G$) THEN PRINT"TOO -. 

-•FEW SYMBOLS. TRY AGAIN.": GOTO 2220 
2380 A$=MID$(G$, I f l) : IF A$=" " OR -i 

iASC(A$)=160 GOTO 2360 
2400 FOR S=l TO NS:IF A$=S$(S) THEN -. 

iRW%(P,R)=S:GOTO 2500 
2420 NEXTS:PRINTA$;" WILL NOT MATCH ANY -. 

-,OF THE GAME" 
2440 PRINT "SYMBOLS. DO YOU WANT TO -i 

-.CHANGE" 
2460 XQ$="YOUR GUESS" :GOSUB10200 :A$=XA$: 

-.IF LEFT$(A$,1)="Y" THEN 2220 
2480 S$(0)=MID$(G$ f I,l) 
2500 NEXTP 
2520 IF KLEN(G$) THEN PRINT"TOO MANY -i 

-.SYMBOLS. TRY AGAIN. ":GOTO 2220 
2620 NR=R:REM COMPUTE NUMBERS OF MATCHES 
2640 FOR S=1T0 NS: ZG% ( S) =0 :NEXTS 
2660 FOR P=1T0 NP:S=RW% (P,NR) : IF S<1 -. 

-iTHEN 2720 
2680 IF S=SC%(P) THEN PM% (NR) =PM% (NR) +1 
2700 ZG%(S)=ZG%(S)+1:IF ZG% (S) < = ZC% (S) -. 

-iTHEN PS%(NR)=PS%(NR)+1 
2720 NEXT P: SM% (NR) =PS% (NR) -PM% (NR) 
2740 IF PM%(NR)<NP THEN GOSUB 7020: 

iREM GO DISPLAY BOARD 
2760 IF PM%(NR)=NP THEN PRINT"fi\W*YOU -. 

-.BROKE MY CODE IN" ;NR; "GUESSES ." : 

-iRETURN 
2780 IF NR<MR GOTO 2220 
2820 PRINT"fit^I CAN'T HANDLE MORE ROWS, 

-. SO YOU" 
2840 PRINT"SCORE JUST" ; MR; "GUESSES. " : 

-iGOSUB 7920:RETURN 
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5000 REM CODE BREAKER SUBR 

5020 PRINT"fi":GOSUB 8520 

5040 XX$="H^HAVE YOU SELECTED A CODE? : 

-.GOSUB10100 
5060 IFXA$0 ,, Y"THEN 5020 
5120 REM INITIALIZE 
5140 FOR R=1T0 MR:PM% (R) =0 :SM% (R) =0 : 

-,PS%(R)=0:NEXTR 
5160 FOR S=1T0 NS:ZC%(S)=0:ZR%(S,1)=0: 

iNEXTS 
5180 FOR P=1T0 NP:TC%(P)=0:NEXTP 
5200 FOR S=1T0 NS:REM REARRANGE S$ TO -i 

-.VARY MY PLAY 
5220 A$=S$(S) :I=1+INT(NS*RND(D) : 

->S$(S)=S$(I) :S$(I)=A$:NEXTS 
5240 FOR S=1T0 NS: I=ASC(S$ (S) ) :S% (S)= (63 

-.ANDI) + (64ANDl/2) :NEXTS:I=0 
5260 FOR P=1T0 NP: 1=1+1 :RW% (P,l) =1 : 

-.ZR%(I,1)=ZR%(I,1)+1:IF I=NS THEN -. 

-.1=0 
5280 NEXTP:NR=l:GOTO 5320 
5300 NR=NR+l:FOR P=1T0 NP:RW%(P, 

-.NR) =TC% (P>) :NEXTP 
5310 FOR S=1T0 NS:ZR%(S f NR)=ZC%(S) : 

-.NEXTS:WH%(NR)=0 
5320 QQ=l:GOSUB 7020:QQ=0 
5340 XX$= n HOW MANY PLACE MATCHES?": 

-.GOSUB10100:PM%(NR)=XA:PRINTXA 
5350 IF PM%(NR)=NP THEN PRINT"IH\hH "> 

-.FOUND IT IN" ;NR;"GUESSES. n : RETURN 
5360 XX$="HOW MANY SYMBOL MATCHES?": 

-,GOSUB10100:SM%(NR)=XA:PRINTXA 
5380 PS%(NR)=PM%(NR)+SM%(NR) :IF -. 

-,PS%(NR)>NP THEN PRINT"TOO MANY": 

-.GOTO 5340 
5460 IF NR=MR THEN PRINT"fi^^I QUIT. -. 

-.TOO MANY ROWS. ":PN$= "ME": RETURN 
5480 IF NR=1 THEN TA% (1) =0 :TB% (1) =0 :P=1 : 

-.GOTO 5620 
5520 FOR P=1T0 NP:POKE (33086+80*P) , 

-.S%(TC%(P) ) :NEXTP 
5540 TA%(NR)=NP:TB%(NR)=NP:R=NR:P=NP 
5560 GOTO5820 
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5620 TC% (P) =TC% (P) +1 : ZC% (TC% (P) ) = ZC% (TC% 

-.(P))+l 
5640 FOR R=1T0 NR 
5660 IF TC%(P)=RW%(P,R) THEN TB%(R)=TB%( 

->R)+1 
5680 IF ZC%(TC%(P))<=ZR%(TC%(P) , 

-iR) THEN TA%(R)=TA%(R)+1 
5690 POKE (33086+80*P) ,S%(TC%(P) ) 
5700 IF TB%(R)>PM%(R) GOTO5820 
5710 IF TA%(R)>PS%(R) GOTO5820 
5720 IF TB%(R)+NP-P<PM%(R) GOTO5820 
5740 IF TA%(R)+NP-P<PS%(R) GOTO5820 
5760 NEXTR:R=NR:IF P=NP THEN 5300 
5780 P=P+l:GOTO 5620 
5800 P=P+l:GOTO 5620 
5820 LR=R:FOR R=1T0 LR 
5840 IF TC%(P)=RW%(P f R) THEN TB%(R)=TB%( 

-.R)-l 
5860 IF ZC%(TC%(P)) <=ZR%(TC%(P) , 

-.R) THEN TA%(R)=TA%(R)-1 
5880 NEXTR:ZC%(TC%(P) )=ZC%(TC%(P) ) -1 
5900 IF TC%(P)<NS THEN 5620 
5910 POKE (33086+80*P) ,32 
5920 TC%(P)=0:P=P-1:IF P>0 THEN R=NR: 

-.GOTO 5820 
5940 PRINT "fiWNO CODE IS CONSISTENT -. 

-.WITH THE": PRINT" INFORMATION YOU -. 

-.GAVE ME." 
5960 PN$= "YOU": RETURN 
7000 REM BOARD DISPLAY SUBR. 
7020 PRINT"fiW";TAB(13) ; "THE CODE GAME": 

-.PRINT 
7040 PRINTTAB(20-NS) ;:FOR S=1T0 NS: 

-.PRINTS$(S) ;" ";:NEXTS: PRINT 
7060 PRINTTAB(14-NP) ;"M"; :FOR P=lTO NP: 

-.PRINT "M"; :NEXTP: PRINT "MMfiML." 
7080 PRINTTAB(14-NP) ;"1 "; SPC (2*NP+1) ; " -. 

-.IP S 1":IF NR<6 THEN GOSUB 7800 
7100 FOR R=1T0 NR:PRINTTAB(14-NP) ;"1 " ; 
7120 FOR P=1T0 NP:PRINTS$(RW%(P, 

-.R));" ";:NEXTP 
7140 PRINT" 1";PM%(R) ;SM%(R) ; 
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7160 IF R=NR THEN IF QQ=1 THEN PRINT"«f« 

-.«? ? "; 
7180 PRINT"1":IF NR<11 THEN GOSUB 7800: 

-■IF NR<6 THEN GOSUB 7800 
7200 NEXTR:PRINTTAB(14-NP) ;"^£"; : 

-.FOR P=1T0 NP : PRINT "M"; :NEXTP 
7220 PRINT " (a PI (a (a g <a p (a= " ; return 
7800 PRINTTAB(14-NP) ;"1 ";SPC (2*NP+1) ; " -> 

->1 1": RETURN 
7900 REM REVEAL MY CODE SUBR 
7920 PRINT :PRINT"MY CODE IS";:FOR P=1T0 -. 

-.NP 
7940 PRINT" ";S$(SC%(P) ) ; :NEXTP:PRINT: 

-.RETURN 
8200 REM SELECT SYMBOLS SUBR 
8220 PRINT"ThWDO YOU WANT:*" :PRINT" 

-.1. PET GRAPHIC SYMBOLS" 
8240 PRINT" 2. THE DIGITS 1 TO";NS: 

iPRINT" 3. TO SELECT YOUR OWN -. 

iSYMBOLS^" 
8260 XX$="TYPE 1, 2 OR 3?" :GOSUB10100 : 

-,I=XA:PRINTI 
8270 IFK1 OR I>3 THEN PRINT"fi" :GOTO8220 
8280 IF 1=1 THEN FOR S=1T0 NS:READ -. 

-.S$(S) :NEXTS: RETURN 
8300 IF 1=2 THEN FOR S=lTO NS:S$ (S) =RIGH 

-.T$(STR$(S) ,1) :NEXTS: RETURN 
8320 IF I<>3 THEN 8260 
8340 PRINT: FOR S=lTO NS 
8360 PRINT"SYMBOL #";S; :GOSUB10200 : 

-.S$ ( S) =XA$ : IFXA$= ,, 2"THENPRINT"T " ; : 

-.GOTO8360 
8380 IF LEN(S$(S))>1 THEN PRINT"ONLY -. 

-.ONE CHAR. PER SYMBOL, PLEASE": 

-.GOTO8360 
8400 FOR I=1T0 S-1:IF S=l GOTO8440 
8420 IF S$(S)=S$(I) THEN PRINT"NO -. 

-.REPEATS PLEASE" :GOTO 8360 
8440 NEXTIrNEXTS: RETURN 
8460 DATA "A." , "£" , "V , "X" , "0." , "M" r "1" , 

85 20 PRINT "^THE SYMBOLS ARE^":REM -. 
-.DISPLAY SYMBOLS SUBR 
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8540 PRINTTAB(20-NS) ; :FOR S=1T0 NS : 

-■PRINTS$(S) ;" "; : NEXTS :PRINT:PRINT: 
-.RETURN 

10000 REM INPUT ROUTINES 

10100 PRINTXX$; 

10130 GETXA$:IFXA$>""THEN10130 

10140 GETXA$:IFXA$=""THEN10140 

10150 XA=VAL(XA$) 

10199 XX$= ,,M : RETURN 

10200 IFXP$= ,, "THENXP$= ,, 2" 
10220 GETXA$:IFXA$O n "THEN10220 

10250 XB$=LEFT$(" "+XP$+ZL$,2*LEN(XP$) + 

-4) 
10260 PRINTXQ$;XB$;:INPUTXA$:XA=VAL(XA$) 
10299 XP$= n ":XQ$="": RETURN 
READY. 



Dr. Factor 

by Len Lindsay 



Challenging Dr. Factor successfully depends on your knowledge 
of factors and primes PLUS your deductive-reasoning strategies. 
(Time out while you look up factors and primes!) You can choose 
how large your playing range will be (up to 90). The larger your 
range, the more important strategy becomes. Here's how to play Dr. 
Factor: 



WELCOME TO DR. FACTOR. 

VOU DO HOT HAVE TO KNOW WHAT ft FACTOR 

IS TO PLAV THIS GAME, BUT IT SURE HELPS 

IT IS VOU AGAINST DR. FACTOR (THE PET 
WILL KEEP TRACK OF HIS MOVES FOR HIM). 



*:nm?rj- m m*mimxm*titim 



VOU TRV TO END THE GAME WITH MORE 
POINTS THAN DR. FACTOR. VOU GET POINT; 
FROM EACH NUMBER VOU TAKE, EQUAL TO 
THAT NUMBER. FOR EXAMPLE, IF VOU TAKE 
13 VOU WILL GET 13 POINTS. 
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THE NUMBERS 

THAT DR. FACTOR GETS DEPENDS ENTIRELV 
ON VOUR CHOICE. HE GETS EVERV NUMBER 
STILL AVAILABLE THAT IS A FACTOR OF 
THE NUMBER YOU PICKED. THEN IT IS VOUR 
TURN AGAIN. TO BE FAIR TO DR. FACTOR, 
VOU MUST MAKE SURE HE GETS SOMETHING 
EVERV TURN. THUS VOU MAY ONLY TAKE A 
NUMBER THAT HAS Hi" LEAST ONE FACTOR 
STILL AVAILABLE FOR DR. FACTOR TO TAKE. 
IF VOU EVER CAN NOT TAKE A NUMBER, DR. 
FACTOR GETS ALL THE NUMBERS THAT ARE 
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As an example, we're choosing a range of 50. A chart of num- 
bers appears on your PET's screen: 
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You go first, by picking any available number. That number is 
added to your score. Dr. Factor gets every number that is a. factor of 
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your choice. (If the number has no factors, PET won't let you 
choose it— unfair to Dr. Factor.) For instance, if you pick 26, Dr. 
Factor gets all the factors of 26 (1, 2, and 13). You and Dr. Factor 
alternate turns until there are no more factorable numbers left for 
you to take. Then, Dr. Factor adds all the numbers left over to his 
score. Watch out— he can really clean up here! 
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WmittiU TRV AGAIN? 




BR. FACTOR U 
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The winner is the one with the highest score. This is a game of 
pure skill! You can't blame Dr. Factor, the man in the moon, or any- 
one else. When you've figured out how to get high scores, play to see 
how low a score you can get. 

If you're either learning or teaching factoring and prime num- 
bers, run do not walk to the nearest PET! 

Although it's highly appropriate for owners of Business Key- 
boards to be playing a game that involves factors and prime numbers, 
you will again have problems with the graphics. Here are some sug- 
gestions. Shift ? represents a checkerboard character. Change it to 
Shift Z, and change this every time it appears in the program. Lines 
6000-6199 draw the board. Make these changes if you have the busi- 
ness keyboard: 

6010 PRINT 

6020 change the two SHIFT & at the end of the line to SHIFT V. 
6040 -PRINT "!"; NS$; use an exclamation point as sub- 
stitute 
6060 :PRINT"!" 

6070 :PRINT "+" use the plus sign 
6090 : :PRINT "--+"; use two hyphens and a plus sign 
6110 : PRINT 
Delete 6130. 



Level C: No one ever told me math could be so much fun! 
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REM*** WORKS ON ORIGINAL PET 2001-8, 

-. NEW PET/CBM, BASIC 4.0, & CBM -. 
-.8032 & 8016 

1 REM***DR. FACTOR*** 

2 REM***PCC IDEA 

3 REM***ORIGINAL PROGRAM 

4 REM***(C) 1980 

5 REM***BY LEN LINDSAY 

6 REM***01-22-80 

7 REM***USES MAIN SUBROUTINES 10100, 

-i 10200, 10400 
10 POKE59468,12:REM GRAPHIC MODE 
15 XQ=RND(-TI) : XQ=0 : REM SEED RND 
20 PRINT"fi"; : REM CLEAR SCREEN 
30 DIMN(90) :REM ARRAY FOR NUMBERS IN -. 

-.LIST 
40 DEF FNR(N)=INT(RND(1)*N+1) : REM RND# 

50 REM 

51 ZZ$=" 

-." : REM 40 DELETE 

52 ZD$="iHirHHHiiiiHiriHi t ' '.REH 21 -, 

-.DOWN 
56 ZR$= "»»»»»»»»»»»»>»»»»»»» 

-i»»»»»»" : REM 40 RIGHT 
58 ZL$=" «««««««««««««««« 

-i««<4«" : REM 40 LEFT 
60 RM$="2i"+ZD$+ZZ$:REM TO REMARK LINE 
62 SC$="li n +ZD$+ ,, W , :REM TO SCORE LINE 
100 PRINTRM$:XQ$="HI1 WHAT IS YOUR -. 

-.NAME" .-GOSUB1 0200 
110 NM$=XA$:IFNM$="2 n THEN100 
120 NM$=LEFT$(NM$,10) :REM CUT NAME TO -. 

-.10 CHARACTERS 
130 PRINTRM$: PRINT "DO YOU WANT TO SEE -. 

-.THE INSTRUCTIONS?"; :GOSUBl 01 30 
140 IFXA$="N"THEN200 
150 IFXA$="Y"THENGOSUB5000:GOTO200 
160 GOTO130:REM ERROR 

200 PRINT ,I fi";RM$:PRINT"WHAT SHOULD THE -, 

-.HIGHEST NUMBER BE" 

201 XQ$="(5-90) ":GOSUB10200 
205 IFXA$="2"THEN200:REM ERROR 
210 HN=XA:IFHN<5ORHN>90THEN200 

215 FORZ = 1TO90:N(Z)=0:NEXT:REM CLEAR -> 
-iARRAY 
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216 F0RZ=1T0HN:N(Z)=1:NEXT:REM FILL -. 

-.ARRAY 
220 GOSUB6000 :REM PRINT BOARD 
230 GOSUB6200 : REM PRINT SIDELINES 
240 GOSUB6400:REM PRINT BOTTOM 
3 00 PRINTRM$;" j lWHAT NUMBER WILL YOU -. 

->TAKE??r?"; 
310 ND=0 : REM INIT NUMBER DIGITS 
320 GOSUB10130:REM GET 
330 IFND=0THENND=1:GOTO360 
340 IFXA$=CHR$(13)THEN400:REM CARRIAGE • 

-.RETURN SO 1 DIGIT NUMBER 
345 IFXA=0ANDXA$O"0"THEN300:REM ERROR 
350 N=N*10+XA:GOTO400 
360 IFXA=0THEN310 
370 N=XA 
380 PRINTN; 

390 GOTO320:REM GET NEXT DIGIT 
400 IFN>HNTHENPRINTRM$; "NUMBER IS TOO -i 

-.BIG, TRY ANOTHER ";:GOTO310 
410 IFN(N)=0THENPRINTRM$;"THAT NUMBER -, 

-.IS TAKEN, TRY ANOTHER ";:GOTO310 
420 NN=N:REM NUMBER PICKED IS NN 
425 IFNN=1THENPRINTRM$;"Y0U CAN'T TAKE - 

-il. TRY ANOTHER NUMBER" ; :GOTO310 
430 PRINTRM$;"YOU TAKE" ; NN; "-LET ME -. 

iCHECK ITS FACTORS" 
440 GOSUB7500:REM REVERSE FIELD THE -. 

-^NUMBER 
450 GOSUB10400:REM PAUSE 
460 GOSUB7200:REM CHECK FACTORS 
470 IFFF=0THENGOSUB7700:GOTO310 
480 GOSUB6400:REM PRINT SCORE 
490 N=NN:GOSUB7500:PRINT" ":REM ERASE i 
500 GOSUB8000:IFQTTHEN300:REM CHECK FOR 

-iEND OF GAME 
510 PRINTRM$; "THERE ARE NO NUMBERS LEFT 

iYOU CAN TAKE" 
520 GOSUB10400:REM PAUSE 
530 FORGl=lTOHN 
540 :IFN(G1)=0THEN 610 
550 :PRINTRM$;"xDR. FACTORr GETS";G1 
560 :N=G1:GOSUB7500:REM LIGHT IT UP 
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570 :GOSUB10400:REMPAUSE 

580 :GOSUB7600:REM ERASE 

590 :S1=S1+G1:REM ADD TO DR FACTOR SCORE 

600 :GOSUB6400:REM PRINT SCORE 

610 NEXTG1 

690 QG=S0-S1 

700 GOSUB6400:REM SCORE 

705 PRINTRM$; 

710 ONSGN(QG)+2 GOSUB750 , 800 , 850 

720 GOSUB10130:REM GET 

730 IFXA$="Y"THEN8100 

740 IFXA$="N"THEN900 

745 GOTO720:REM ERROR 

750 W1=W1+1 

760 PRINT"DR FACTOR WINS-HOW ABOUT A -. 

-.REMATCH?"; 
770 RETURN 
800 W0=W0+1 
810 PRINT "A TIE-BUT YOU MAY TAKE A -. 

-.WIN-PLAY AGAIN"; 
820 RETURN 
850 W0=W0+1 

860 PRINT"xYOU WIN!? TRY AGAIN?"; 
870 RETURN 

900 PRINTRM$; "T"; :END 
999 END 

5000 PRINT"fi"; :REM INSTRUCTIONS 
5010 PRINT "WELCOME TO DR. FACTOR." 
5015 PRINT 
5020 PR INT "YOU DO NOT HAVE TO KNOW WHAT -. 

-.A FACTOR" 
5025 PRINT 
5030 PRINT"IS TO PLAY THIS GAME, 

-. BUT IT SURE HELPS." 
5035 PRINT 
5040 PRINT"IT IS YOU AGAINST DR. FACTOR -. 

-.(THE PET" 
5045 PRINT 
5050 PRINT "WILL KEEP TRACK OF HIS MOVES -. 

-iFOR HIM) ." 
5055 PRINT SC$;:GOSUB 10100 
5060 PRINT "fi YOU TRY TO END THE GAME -. 

-.WITH MORE" 
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5065 PRINT 

5070 PRINT"POINTS THAN DR. FACTOR. YOU - 

-.GET POINTS" 
5075 PRINT 
5080 PRINT"FROM EACH NUMBER YOU TAKE, 

-. EQUAL TO" 
5085 PRINT 
5090 PRINT "THAT NUMBER. FOR EXAMPLE, 

i IF YOU TAKE" 
5095 PRINT 

5100 PRINT"13 YOU WILL GET 13 POINTS. 
5105 PRINTSC$;:GOSUB10100 
510 8 PRINT"fiTHE NUMBERS 

5109 PRINT 

5110 PRINT "THAT DR. FACTOR GETS DEPENDS 

-nENTIRELY" 
5115 PRINT 
5120 PRINT"ON YOUR CHOICE. HE GETS -. 

-.EVERY NUMBER" 
5125 PRINT 
5130 PRINT "STILL AVAILABLE THAT IS A -. 

-.FACTOR OF" 
5135 PRINT 
5140 PRINT"THE NUMBER YOU PICKED. THEN • 

-.IT IS YOUR" 
5145 PRINT 
5150 PRINT"TURN AGAIN. TO BE FAIR TO -. 

-.DR. FACTOR," 
5155 PRINT 
5160 PRINT"YOU MUST MAKE SURE HE GETS -. 

-.SOMETHING" 
5165 PRINT 
5170 PR INT "EVERY TURN. THUS YOU MAY -. 

-.ONLY TAKE A" 
5175 PRINT 
5180 PRINT"NUMBER THAT HAS AT LEAST ONE 

-.FACTOR" 
5185 PRINT 
5190 PRINT"STILL AVAILABLE FOR DR. -i 

-.FACTOR TO TAKE." 
5195 PRINT 
5200 PRINT"IF YOU EVER CAN NOT TAKE A -. 

-.NUMBER, DR." 
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5205 
5210 

5215 
5220 
5230 
5999 
6000 
6005 
6010 

6020 
6030 
6035 

6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 

6199 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 



PRINT 

PRINT "FACTOR GETS ALL THE NUMBERS -. 

-iTHAT ARE" 
PRINT 

PRINT"LEFT. £HIT SPACE TO BEGINr"; 
GOSUB10130:REM GET 
RETURN 

PRINT"fi"; : REM PRINT BOARD 
N=0 : REM INIT NUMBER 
PR TNT" 002 002 002 002 002 002 002 002 002 

FORX=0TO(HN-1)/10 
:FORY=1TO10 

: :N=N+1 :GOSUB7000 : IFN>HNTHENNS$="£& 

ii 

-i 

: : PRINT "1";NS$ ; 
:NEXTY 
:PRINT"1" 
:PRINT"±"; 
:FORY=1TO10 
;; PRINT" 00 f"; 
:NEXTY 
:PRINT"<2" 
NEXTX 

PRINT" t -001 001 001 001 001 001 001 001 001 
-.00=" 



RETURN 

PRINT"Ji"; : 

PRINTTAB(32) 

PRINTTAB(32) 

PRINTTAB(32) 

PRINTTAB(32) 

PRINTTAB(32) 

PRINTTAB(32) 

PRINTTAB(32) 

PRINTTAB(32) 

PRINTTAB(32) 

PRINTTAB(32) 

PRINTTAB(32) 

PRINTTAB(32) 

PRINTTAB(32) 

PRINTTAB(32) 

PRINTTAB(32) 



REM SIDELINE 
"JL*PLAY*" 
"I DR " 
"jLF ACTOR" 



OF BOARD 



"TRY TO" 

" TAKE" 

n MORE" 

"POINTS" 

" THAN" 

" DR" 

"FACTOR" 
ii ii 

" YOUR" 
"NUMBERS" 
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6360 PRINTTAB(32) 
6370 PRINTTAB(32) 
6380 PRINTTAB(32) 
6390 PRINTTAB(32) 
6395 PRINTTAB(32) 



"DR. F'S" 
"NUMBERS" 
" ££" 
" ## " 
6400 PRINTRM$:PRINT"j:tSCOREr £ PLAYER -. 

-.r iWINSr JLAVERAGE" 
6410 PRINTS0;TAB(6) ;NM$;TAB(17) ;W0;TAB(2 

i2) ;INT(A0) 
6420 PRINTS1;TAB(6) ;"DR. FACTOR"; TAB (17) 

-.;W1;TAB(22) ;INT(A1) ; "h" 
6499 RETURN 

7000 NS$=RIGHT$(STR$(N) ,2) :REM NUMBER -. 
iTO STRING 

7099 RETURN 

7100 PRINT'W; : REM POSITION CURSOR -i 

-iTO NUMBER SPOT 
7110 IFN>10THENPRINTLEFT$(ZD$ f (INT( (N-l) 

i/10))*2); 
7120 PRINTLEFT$(ZR$, (N-(INT( (N-l)/10) *10 

n))*3-2); 

7199 RETURN 

7200 FF=0:REM FIND FACTORS - FF IS i 

-.FACTOR FOUND 
7210 FORQ=lTONN/2 : REM CHECK UP TO -. 

-.HALF WAY POINT 
7215 :IFQ=1ANDN(Q)=0THEN7280 
7220 :DD=NN/Q:IFDDOINT(DD)THEN7280 : 

-. REM NOT A FACTOR 
7230 :IFN(DD)<1ANDN(Q)<1THEN7280: 

-. REM BOTH FACTORS TAKEN ALREADY 
7240 : IFFF=0THENS0=S0+NN:GOSUB7800 : 

-,N(NN)=0:FF=1:GOSUB10400 
7250 : IFN(DD) >0THENS1=S1+DD:N=DD: 

-.GOSUB7900 
7260 :IFN(Q) >0THENS1=S1+Q:N=Q:GOSUB7900 
72 80 NEXTQ 
7299 RETURN 

7500 GOSUB7000:REM N TO NS$ 
7510 GOSUB7100:REM POSITION CURSOR 
7520 PRINT"j:";NS$ ;"««"; :REM PRINT -. 

-.REVERSE NUMBER AND POSITION CURSOR 

7599 RETURN 

7600 GOSUB7500:REM POSITION CURSOR 
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7605 PRINT "r ":REM ERASE NUMBER 
7610 N(N)=0:REM ZERO NUMBER IN ARRAY 

7699 RETURN 

7700 PRINT"r";NS$:REM RETURN NUMBER 
7710 N(NN)=1 

7720 PRINTRM$; n NO FACTORS LEFT FOR";NN;" 
-i-TRY ANOTHER"; 

7799 RETURN 

7800 PRINTRM$;"xFACTOR FOUND, YOU -. 

iGET" ; NN; n < POINTS " : RETURN 
7900 GOSUB7500:REM REVERSE FIELD NUMBER 
7910 PRINTRM$;"£.DR. FACTORf GETS ";N; "SIN 

nCE IT IS A FACTOR" 
7915 GOSUB10400:REM PAUSE 
7920 GOSUB7600:REM ERASE NUMBER 

7999 RETURN 

8000 QT=0:REM CHECK IF GAME OVER 
8010 FORG0=HNTO1STEP-1 

8015 :IFQTTHEN8090 

8020 :IFN(G0)=0THEN8090 

8030 :FORGl=lTOG0/2 

8032 : :IFG1=1ANDN(G1)=0THEN8080 

8035 ::IFQTTHEN8080 

8040 ::DD=G0/G1:IFDDOINT(DD)THEN8080 

8050 ::IFN(DD)=0ANDN(G1)=0THEN8080 

8060 ::QT=1:REM FACTOR AVAILABLE 

8080 :NEXTG1 

8090 NEXTG0 

8099 RETURN 

8100 PRINT"fi"; : REM PLAY AGAIN 
8110 A0=(A0*NG+S0)/(NG+1) 

8120 A1=(A1*NG+S1)/(NG+1) 

8130 S0=0:S1=0:REM INIT SCORE FOR NEW -. 

-iGAME 
8140 NG=NG+1:REM INCREASE NUMBER OF -i 

-.GAMES COUNTER 
8150 GOTO200 
10100 IFXX$=""THENXX$="i. HIT SPACE TO -. 

-iCONTINUE r" : REM GET 1 CHARACTER 
10120 IFXX$<>" "THENPRINTXX$; : REM -. 

-.PRINT MESSAGE 
10130 GETXA$:IFXA$>""THEN10130:REM -i 

-.CLEAR BUFFER 
10140 GETXA$:IFXA$=""THEN10140 
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10150 

10199 

10200 

10220 
10250 
10260 



10270 
10280 
10299 
10400 
10420 
10430 
10499 
READY. 



XA=VAL(XA$) 

XX $="": RETURN 

IFXP$= ,,n THENXP$= ,, 2 ,, : REM SET -i 

-iDEFAULT PROMPT - INPUT WITH PROMPT 

GETXA$ : IFXA$<> " "THEN10220 : 

-•REM CLEAR BUFFER 

XB$=LEFT$(" "+XP$+ZL$,2*LEN(XP$)+ 

-■4) :REM SET UP FOR PROMPT 

PRINTXQ$;XB$;:REM PRINTS THE n 

-iQUESTION FOLLOWED WITH PROPOSED -. 

-•ANSWER 

INPUTXA$ 

XA=VAL(XA$) 

XP$= " n : XB$= "': XQ$= "": RETURN 

IFXP=0THENXP=3:REM PAUSE 

XJ=TI+60*XP 

IFTKXJTHEN10430 

XJ=0:XP=0: RETURN 
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Games of Chance 



In Between 

by hen Lindsay 



In Between is an enjoyable card game, better known as "Acey 
Deucey." Len adapted this casino diversion for your PET, complete 
with casino rules and entry fees; score-keeping; and last but not least, 
card faces drawn directly on your screen. 

The object is to guess whether the value of the card in the mid- 
dle of a deck of three will be "in between" the value of the other 
two cards. For example, the croupier deals you a 2 of spades and a 
Queen of Hearts. You bet that the third card will be in between the 
value of the 2 and the Queen. The dealer turns over the third card- 
it's a 5 ! You've won your first bet at In Between. 

Here are the Casino Rules: You need at least $100 to play 
(thoughtfully provided by your PET bank). The casino entry fee is 
varied from game to game randomly. The computer shuffles and 
shows you the first card. Your minimum bet will vary. When the 
computer shuffles and shows you the second card, you can add to 
your bet. The odds are doubled when you win. See if you can break 
the bank! 
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DO VOU WANT TO PLflV <CuST=$ 5 >? 



To illustrate the fine graphics in this program, here are scenes 
from several different runs: 



wKsmm 
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IN BETWEEN 



EET=$ 295 






OOPS! ! THAT'S 



:n between. HOfiiH? 
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NONEY 



$ 434 
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Warning to business-keyboard owners: Make friends with the owner 
of a non-Business keyboard PET and tape this program. You won't 
have any trouble loading this tape on your Business PET, but you 
could spend a fortune trying to substitute graphics. 

Future cardsharps who would like to modify Len's program are 
advised to make one change at a time. There are routines to shuffle 
the deck, fill the deck, and draw the cards graphically on the screen, 
including card faces. Try placing a bet that you can improve this pro- 
gram. It's possible, but not easy! 

Level B: Plan to invest your winnings in a nice, new PET. 
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REM WORKS ON PET 2001-8, NEW PET/CBM, 

-i BASIC 4.0, & CBM 8016 & CBM 8032 

1 REM *** IN BETWEEN 

2 REM *** WITH FULL GRAPHIC CARDS 

3 REM *** ORIGINAL PROGRAM 

4 REM *** (C) 1980 

5 REM *** LEN LINDSAY 

6 REM *** 04-21-80 

9 REM *** USES MAIN SUBROUTINES 10100, 

i 10200 

10 POKE 59468,12 
15 XQ=RND(-TI) 

30 DIM XC$(4,11) ,XD$(51) 

40 DEF FNR(N)=INT(RND(1)*N+1) 

50 ZS$=" 

-, " :REM 39 SPACE 
52 ZL$= "«««««««««««««««« 

-,«<««" :REH 39LEFT 
54 ZR$="»»»»»»»»»»»»»»»>» 

-.»»»»" :REM 39RIGHT 

56 zD$= II ThhhhhhH , ^hhM\hWThhhhhhW" : 

iREM 23 DOWN 
6 BL$="JiThhhhhN'":REM TO BET LINE 
62 RM$="Ji ,, + ZD$+ZS$+"T ,I :REM TO LINE 24 
68 XA$= "WELCOME TO ** IN BETWEEN ** AN -i 

-^ENJOYABLE CARD GAME." 
70 PRINT "fix" ; 

72 GOSUB74 

73 PRINT"? ";RM$:PRINT"HIT iSPACEr TO -. 

-.START" :GOTO80 

74 FORXF=0TO51 

76 :PRINTMID$(XA$,XF+1,1) ; 

78 :GOTO25420:REM ADD CARD TO ARRAY -. 

-i INCLUDES NEXT XF & RETURN 
80 GETA$:IFA$>""THEN90 
82 XC$=XD$(FNR(52)-1) :XX=1:YY=4: 

-.GOSUB25000 :GOTO80 
90 PRINT"fiDO YOU NEED INSTRUCTIONS?" 
92 GOSUB10130 

94 IFXA$="Y"THENGOSUB5000 :GOTO100 
96 IFXA$<>"N"THEN92 
100 PRINT "fi" 
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105 XQ$="^HOW MUCH CASH DO YOU HAVE": 

-.GOSUB10200 
110 CASH=XA:IFCASH<100THENPRINT"fixYOU -, 

iNEED AT LEAST 100 DOLLARS TO -i 

- 1 PLAY":GOTO105 
115 IFCASH>500000THENPRINT"fiYOU NEED A i 

-.POLICE ESCORT FOR THAT MONEY!": 

-.GOTO105 
120 MIN=INT(10~(LEN(STR$(CASH) )-3) )/2 
150 XA=INT(CASH*.01*FNR(10) ) +1 
160 PRINT "MxCASINO ENTRY FEE IS $";XA 
170 CASH=CASH-XA 

180 PRINT "^YOU NOW HAVE $" ;CASH; "J" 
190 GOSUB10100 

200 GOSUB6000:REM INITIAL DISPLAY 
500 PRINTBL$; :FORA=lT016 :PRINTZS$ :NEXT 
600 PRINTRM$ : PRINT " SHUFFL ING " ; : GOSUB2 550 

i0:PRINTRM$ 
610 X1=FNR(4) 
620 X2=FNR(5)+Xl+8 
630 X3=FNR(5)+X2+8 
640 Yl=FNR(6)+8 
650 Y2=FNR(6)+8 
660 Y3=FNR(6)+8 
670 C1$=XD$(0) 
680 C2$=XD$(1) 
690 C3$=XD$(2) 
700 GOSUB6100 

710 GOSUB1110 :GOSUB1210 :GOSUB1310 
720 PRINTRM$: PRINT "DO YOU WANT TO PL*AY -. 

-i(COST=$";MIN;")?";:GOSUBl0130: 

nPRINTRM$ 
730 IFXA$="Y"THEN800 
740 IFXA$O"N"THEN720 
750 PRINTRM$: PRINT "DO YOU WANT NEW -i 

-.CARDS?"; :GOSUB10130:PRINTRM$ 
760 IFXA$="Y"THEN500 
770 IFXA$O"N"THEN750 
780 PRINTRM$: PRINT" ITS BEEN FUN - TRY i 

-iAGAIN LATERT T " ? : END 
800 BET=MIN 
810 CASH=CASH-BET 
820 TURN=TURN+1 
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830 GOSUB610B 

840 PRINTBL$;"BET=$";BET 

850 GOSUB1100 

860 GOSUB2000 

870 GOSUB1300 

880 XA$=C1$:GOSUB3000:C1=XA 

890 XA$=C2$:GOSUB3000:C2=XA 

900 XA$=C3$:GOSUB3000:C3=XA 

910 GOSUB2000 

920 GOSUB1200 

930 IFCKC2ANDC2<C3THEN960:REM WIN 

940 IFC1>C2ANDC2>C3THEN960:REM WIN 

950 PRINTRM$:PRINT"OOPS!! THAT'S NOT IN -. 

iBETWEEN. AGAIN?";:GOSUB10130 
955 IFXA$="N"THENPRINTRM$:PRINT n SEE YOU -. 

nLATERTT"; :END 
957 IFXA$O I, Y"THEN950 

959 GOTO500 

960 CASH=CASH+2*BET 

970 PRINTBL$;"j:YOU GOT ITI WINNINGS ARE -. 

nADDED TO CASHr":GOSUB6100 
980 PRINTRM$:GOSUB10100 
990 IFCASH<MITHENPRINTRM$:PRINT"YOU -i 

-.DON'T HAVE ENOUGH CASH FOR -i 

-.ANOTHER?? " ; : END 
992 IFCASH>999999THENPRINTRM$:PRINT"xYOU 

-i BROKE THE BANK WITH $"; CASH: END 
995 GOTO500 
999 END 
1100 XC$=C1$ 
1110 XX=X1:YY=Y1:GOSUB25000 

1199 RETURN 

1200 XC$=C2$ 

1210 XX=X2:YY=Y2:GOSUB25000 

1299 RETURN 

1300 XC$=C3$ 

1310 XX=X3:YY=Y3:GOSUB25000 

1399 RETURN 

2000 PRINTRM$:XQ$="WHAT ADDITIONAL -> 

-.BET(0=NONE) ":GOSUB10200:IFXA>CASHO 

-.RXA<0THEN860 
2010 BET=BET+XA:CASH=CASH-XA:GOSUB6100 : 

nPRINTRM$ ; BL$ ; "BET= $ " ; BET : RETURN 
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3000 XA=VAL(XA$) : IFXATHENRETURN 

3010 XA$=LEFT$(XA$ f l) 

3020 IFXA$= ,, J n THENXA=ll 

3030 IFXA$="Q"THENXA=12 

3040 IFXA$="K"THENXA=13 

3099 RETURN 

5000 PRINT "fiWELCOME TO THE CARD GAME OF 

5010 PRINTHIN BETWEEN (ALSO KNOWN AS -. 

-.ACEY DEUCY" 
5020 PRINT'^YOU BET WHETHER THE MIDDLE -, 

-.OF THREE" 
5030 PRINT"^CARDS WILL BE IN BETWEEN -, 

iTHE OTHER" 
5040 PRINT "^TWO CARDS IN VALUE. YOU GET -. 

-^DOUBLE" 
5050 PRINT'^YOUR BET BACK IF YOU WIN.f" 
5099 GOSUB10100 

5999 RETURN 

6000 PRINT"fi n ; :REM DRAW BOARD 
6005 PRINT" SSS$$$$$$$ 

-, $$$$$$$$$ " 
6010 PRINT"x MONEY r -> 

-.£ TURNS r " 
6020 PRINT " Q########P 

-, 0#######P " 

6030 PRINT "&$ _|_ IN BETWEEN 1 -. 

6040 PRINT " L$$$$$$$$: EEEEEEEEEEE 

^ L$$$$$$$: " 
6050 PRINT ' (((((KK((((flf(((((((((((( 

^ ((((((( " 

6100 PRINT "]nhW»» <««« " ; CASH 

6200 PRINT"]iW";LEFT$(ZR$,28) ;TURN 

6999 RETURN 

10100 IFXX$=" II THENXX$="j: HIT SPACE TO -. 

-.CONTINUE r" : REM GET 1 CHARACTER 
10120 IFXX$<>" "THENPRINTXX$; : REM -. 

-.PRINT MESSAGE 
10130 GETXA$:IFXA$>""THEN10130:REM -^ 

iCLEAR BUFFER 
10140 GETXA$:IFXA$=""THEN10140 
10150 XA=VAL(XA$) 
10199 XX$="": RETURN 
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10200 IFXP$= ,II, THENXP$= n 2" : REM SET -. 

-.DEFAULT PROMPT - INPUT WITH PROMPT 
10220 GETXA$:IFXA$O n,, THENl0220: 

-nREM CLEAR BUFFER 
10250 XB$=LEFT$(" "+XP$+ZL$,2*LEN(XP$) + 

-.4) :REM SET UP FOR PROMPT 
10260 PRINTXQ$;XB$; :REM PRINTS THE -> 

-.QUESTION FOLLOWED WITH PROPOSED -. 

-iANSWER 
10270 INPUTXA$ 
10280 XA=VAL(XA$) 

10299 XP$= I,,, :XB$= , " I :XQ$=" 1 ': RETURN 
25000 REM*** CARD DRAWING INITALIZE *** 
25010 XB$=XC$ : XE$="?<jl" : REM DEFAULT 
25012 IF XC$<> ,, 2" THEN XB$="_" : 

-, XE$= ,, x4" 
25020 FOR YZ=1 TO 11 
25030 :FOR XZ=1 TO 4 
25040 : :XC$(XZ,YZ)=XB$+XB$ 
25050 ::IF XZ=1 THEN XC$ (XZ , YZ) =XE$ 
25060 :NEXT XZ 
25070 NEXT YZ 
25080 XC$(4 f ll)=XC$(4,ll)+"r" 

25112 IF XC$="2" THEN 25199 

25113 XN=VAL(XC$) : IF XN=0 THEN GOSUB -. 
i25210 

25114 XS$=RIGHT$(XC$ f l)+ ,, _" 

25116 IF XN=1 THEN XC$="A"+RIGHT$ (XC$ , 1) 

25120 XC$(1,1) = , \l"+XC$ 

25122 XC$(2,1)= ,M, :IFXN<>10 THEN XC$(2 f 

-,1) = "_" 
25130 IFXN<4 THEN 25160 
25132 XC$(2 f 3)=XS$ 
25134 XC$(4,3)=XS$ 
25136 XC$(2 f 9)=XS$ 
25138 XC$(4,9)=XS$ 
25140 IF XN<6 THEN 25160 
25142 XC$(2,5)=XS$ 
25144 XC$(4 f 5)=XS$ 
25150 IF XN<8 THEN 25160 
25152 XC$(2,7)=XS$ 
25154 XC$(4 f 7)=XS$ 
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25160 

25170 

25180 
25190 
25199 
25200 
25210 

25213 
25216 
25219 
25222 
25225 
25228 
25231 
25234 
25237 
25240 
25243 
25246 
25249 
25252 
25255 
25258 
25261 
25264 
25267 
25270 
25273 
25276 
25279 
25282 
25285 
25288 
25291 
25299 
25300 
25301 
25302 



XN=8 OR XN=10 - 
: XC$(3,9)=XS$ 



IF XN/2 <> INT(XN/2) THEN XC$(3, 

-.6)=XS$ 

IF XN=3 OR XN=2 OR 

iTHEN XC$(3,3)=XS$ 

XC$(4,ll)=XC$+ ,, r" 

IFXN=10 THEN XC$(3,11)=" 

GOTO25300 

REM*** FACE CARD 

XQ$=LEFT$(XC$,1) 

->1 

IFXQ$="K"THEN25258 



* * * 



SUBSTITUTE 
IFXQ$="J"THEN2523 



_ ii 



g ~)r/$ 



r 



JLL8J 



="rUKr. . " 

="r UKr 



= "2mr 



•jlL 



r7r ) r 



="r KKKr rJr " 

= "X.QUEEN ":GOT025279 



_ ii 
_ ii 



r ???r; 
r "";r 

II £ \ v | " 



= "rlx 



= "r 



r4 K* 
J_2r>JL 
.r> <£_ 



ii 



XC$(2 f 3 

XC$(2 f 4 

XC$(2,5 

XC$(2,6 

XC$(2,7 

XC$(2 f 8 

XC$(2,9 

XC$(2,3 

XC$(2,4 

XC$(2 f 5 

XC$(2,6 

XC$(2,7 

XC$(2 f 8 

XC$(2,9 

XC$(2,3 

XC$(2,4 

XC$(2,5 

XC$(2,6 

XC$(2,7 

XC$(2,8 

XC$(2,9) = "r_UKING_" 

FORYZ=3T09 

:FORXZ=3T04 

::XC$(XZ,YZ)="" 

:NEXTXZ 

NEXTYZ 

RETURN 

REM *** DRAW THE CARD 

REM XC$(X f Y) IS THE CARD GRAPHICS 

REM XX & YY ARE THE START CORNER - 

-,COORDINATES 



= " rlx JACK_ " : G0T02 5279 
\21JL " 
? ((((r " 
="r),r, jx_" 






="r r4'>*r 



="r~g <r/7 r>r 



= n L. 



) 
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25303 REM CARD GRAPHICS ARE FOR 7 BY 11 -i 
-.CARD - BUT LINE 25330 MAKES IT 7 n 
-iBY 9 

25310 PRINT"li"; 

25312 IFYY>lTHENPRINTLEFT$(ZD$ f YY-l) ; 

25320 F0RXG=1T011 

25330 :IFXG=2ORXG=10THENNEXT 

25335 :IFXX>1THENPRINTLEFT$(ZR$,XX-1) ; 

25340 :F0RXH=1T04 

25350 ::PRINTXC$(XH,XG) ; 

25360 :NEXT 

25370 :PRINT 

25380 NEXT 

25399 XC $="2" .-RETURN 

25400 REM *** FILL DECK ARRAY 
25410 FORXF=0TO51 

25420 :XG=INT(XF/13) 

25430 :XG$= n £ ll :IFXGTHENXG$="£":IFXG>lTHE 

-.NXG$="X" : IFXG>2THENXG$="A." 
25440 :XH=XF-(13*XG)+1 
25450 :XH$=MID$(STR$(XH) ,2,1) 
25460 : IFXH>10THENXH$="J" : IFXH>11THENXH$ 

-i="Q":IFXH>12THENXH$="K" 
25470 :XD$(XF)=XH$+XG$ 
25480 NEXT XF 

25499 RETURN 

25500 REM *** SHUFFLE DECK 
25510 FORXF=0TO51 

25520 :XG=FNR(52)-1 
25530 :XG$=XD$(XG) 
25540 :XD$(XG)=XD$(XF) 
25550 :XD$(XF)=XG$ 
25560 NEXT XF 
25599 RETURN 
READY. 



Thrice Dice 

by Len Lindsay 



Thrice Dice is Len's version of an old dice game that will tempt 
you to gamble recklessly with fortune (and challenge you to think 
about strategy). 

You can win big with the right guess. Pick one number from 1 
to 6 and place your bet. If your number turns up once, you get dou- 
ble your money back. If it turns up twice, you get three times your 
money back. If your lucky number comes up three times, you get 
four times your money backl 

You need a mere $100 to play, and the casino fee will vary. 
How can you resist, with such odds? 

You have a 50:50 chance of winning, you figure. Or do you? 
Can you determine the exact odds of winning? Are the odds really 
on your side? How will you get rich gambling on your PET? 



WELCOME TO THRICE DICE. I DISCOVERED 
THIS DICE GAME WHILE PREPARING 
EXTRA CURRICLILflR MATH ACTIVITIES FOR 
UPPER ELEMENTARV SCHOOL STUDENTS. 
IT IS VERV SIMPLE TO PLflV. THREE DICE 
ARE ROLLED. BUT FIRST VOU PLACE YOUR 
BET AND DECIDE WHAT NUMBER VOU BET 
WILL TURN UP. 



■:iiflHsrsii»fiMti«J3iif2[ajae 
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IF THRT NUMBER TURNS UP ON RNY ONE 

OF THE THREE DICE YOU WILL GET 

BACK DOUBLE VOUR BET <VOU WILL GET BACK 

TWICE AS MUCH AS VOU PUT IN>. IF VOUR 

NUMBER IS ON ANV TWO OF THE DICE VOU 

ARE PR ID THREE TIMES VOUR BET.. fiHD IF 

VOUR NUMBER IS ON ALL THREE DICE VOU 

WILL BE PAID FOUR TIMES VOUR BET. 

OF COURSE, VOU LOSE VOUR MONEV BET IF 

VOUR NUMBER DOESN'T COME UP AT ALL. 

■2!t«3tf=IiMMH»M2J*i2LiJ=« 



HERE ARE SOME EXAMPLES: 

IF 5 IS ON ONE DICE VOU GET $20 BACK. 

<VOU WON $1@ OVER VOUR $10 BET) 
IF TWO DICE TURN UP 5 VOU GET $30 BACK. 

<VOU WON $20 OVER VOUR $10 BET) 
IF ALL THE DICE ARE 5 VOU GET $40 BACK. 

<VOU WON $30 OVER VOUR $10 BET> 
IF NO DIE SHOWS A 5 VOU LOSE VOUR BET. 



IT SOUNDS LIKE THE ODDS ARE ON VOUR 
SIDE, DOESN'T IT? PLAV IT A FEW TIMES 
TO SEE IF VOU TEND TO WIN OR LOSE. 
CAN VOU DETERMINE THE EXACT ODDS 
OF WINNING? 

a:»tMasftimM»:]:ft»isH 
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Other casino managers may want to use the routine for display- 
ing dice on the screen in programs of their own. It will work in all 
PET/CBM models. 

Business managers will once more have to substitute graphics. 
The result won't be quite as spiffy as the graphics on other PET 
models, but they'll suffice. 

SHIFT : is the bottom right corner of the box. Substitute 

SHIFT R. 
SHIFT $ is the underlining. Substitute SHIFT R. 
SHIFT % is the left side of a box. Substitute SHIFT T. 
SHIFT / is the right side of a box. Substitute SHIFT Y. 
SHIFT ( is half a gray box. Substitute SHIFT C. 

The dice drawing in lines 10025-20020 use graphics that aren't 
available on a business keyboard. Try: 

20025 PRINT 

20026 PRINT TAB(XX); "[SPACE] [RVS] [3 SPACE] [OFF] " 

20027 PRINT TAB(XX);" [SPACE] [RVS] [3 SPACE] [OFF] " 

20028 PRINT TAB(XX);" [SPACE] [RVS] [3 SPACE] [OFF] " 

20029 PRINT 

Level B. Roll 'em! 



REM WORKS ON PET 2001-8 , NEW PET/CBM, 

-. BASIC 4.0, & CBM 8032 & 8016 

1 REM*** THRICE DICE 

2 REM***0RIGINAL PROGRAM 

3 REM***(C) 1980 LEN LINDSAY 

4 REM***04-20-80 

10 POKE 59468,12 : REM GRAPHIC MODE 

15 XQ=RND(-TI) : REM SEED RND 

20 PRINT "fi"; : REM CLEAR SCREEN 

30 DIM R(3) 

40 DEF FNR(N)=INT(RND(1) *N+1) : REM RND# 

50 ZD$="WWiWW*WWWWWiW" : 

-. REM 23 DOWN 
52 ZS$=" 

" :REM 39 SPACES 
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54 RM$="1T+ZD$+ZS$+"T":REM TO LINE 24 -i 

-iWITH CLEAR LINE 24 
56 BL$="]nhhhhW , :REM TO BET LINE 
58 ZL$=" «««««««««««««««« 

-,<«««" :REM 39 LEFT 
60 ZR$= "»>»»»»»»»>»»»»»»»»> 

-i>»»»»":REM 39 RIGHT 
70 PRINT"\hhhhhhW»»»»THRICE DICE 
72 PRINT n ThhhW»»»»»»»H IT xSPACEr 
74 GOSUB20000 

76 GET A$ : IF A$OCHR$(32) THEN 74 
80 PRINT"fiDO YOU NEED INSTRUCTIONS?" 
85 GET A$ : IF A$= n Y" THEN GOSUB5000: 

1GOTO100 
87 IF A$="N" THEN 100 
89 GOT085 
100 PRINT"fi" 
105 PRINT"^HOW MUCH CASH DO YOU HAVE";: 

iGOSUBl0200 
110 CASH=XA:IFCASH<100THENPRINT"fixYOU -, 

-iNEED AT LEAST 100 DOLLARS TO -. 

-.PLAY":GOTO105 
115 IFCASH>500000THENPRINT"fiYOU NEED A -1 

-iPOLICE ESCORT FOR THAT MONEY!": 

-.GOTO105 
120 MIN=INT(10~(LEN(STR$(CASH) )-3) ) /2 
150 XA=INT(CASH*.01*FNR(10) ) +1 
160 PRINT HtLCASINO ENTRY FEE IS $ " ;XA 
170 CASH=CASH-XA 

180 PRINT"tYOU NOW HAVE $";CASH;"t" 
190 GOSUB10100 

200 GOSUB6000:REM INITIAL DISPLAY 
300 GOSUB6100:PRINTRM$:PRINT"WHAT IS -. 

1YOUR BET (MIN="MIN; ") "; :GOSUB10200 
310 BET=INT(XA) 

320 IFBET<MINORBET>CASHTHEN300 
330 PRINTBL$;"BET=$";BET 
340 TURN=TURN+1 
350 CASH=CASH-BET:GOSUB610 
400 PRINTRM$:XX$*"j:WHAT is YOUR NUMBER -. 

-.(l-6)r?":GOSUBl0100:PRINTRM$ 
410 IFXA<1ORXA>6THEN400 
420 NUMBER=XA 
430 PRINTBL$; "^NUMBER IS";NUMBER 
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500 Rl=FNR(10)+5 

510 R2=FNR(10)+5 

520 R3=FNR(10)+5 

530 Xl=FNR(8) 

540 X2=FNR(8)+Xl+5 

550 X3=FNR(8)+X2+5 

560 Y1=FNR(9)+11 

570 Y2=FNR(9)+11 

580 Y3=FNR(9)+11 

600 F0RC=1T016 

610 IFRKCTHEN630 

620 XX=X1:YY=Y1:GOSUB20000:D1=XD 

630 IFR2<CTHEN650 

640 XX=X2:YY=Y2:GOSUB20000:D2=XD 

650 IFR3<CTHEN670 

660 XX=X3:YY=Y3:GOSUB20000:D3=XD 

670 NEXTC 

700 MATCH=0 

710 IFNUMBER=D1THENMATCH=MATCH+1 

720 IFNUMBER=D2THENMATCH=MATCH+1 

730 IFNUMBER=D3THENMATCH=MATCH+1 

740 XA$= "LOST " : IFMATCHTHENXA$= "WON " : 

->GAIN=BET* (MATCH+1) :CASH=CASH+GAIN 
750 PRINTBL$; n \W; MATCH;" MATCH = $"; 
760 IFMATCHTHENPRINTGAIN; :GOTO780 
770 PRINTBET; 
780 PRINTXA$ 
790 GOSUB10100 
800 GOSUB6100:PRINTBL$; :FORX=lT017: 

-iPRINTZS$:NEXTX 
810 IFCASH>999999THEN8000 
820 IFCASH<MINGOTO9000 
900 GOTO300 
999 END 

5000 PRINT "fi"; : REM INSTRUCTIONS 
5010 PRINT "WELCOME TO THRICE DICE. I -. 

-iDISCOVERED" 

5020 print"^this dice game while -i 

-.preparing" 
5030 print "^extra curricular math -n 

-.activities for" 
5 040 print "Supper elementary school -• 

-.students . " 
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5050 PRINT n tlT IS VERY SIMPLE TO PLAY. ■ 

-.THREE DICE" 
5060 PRINT "tARE ROLLED. BUT FIRST YOU -i 

iPLACE YOUR" 
5 070 PRINTHBET AND DECIDE WHAT NUMBER • 

-i YOU BET" 
5080 PRINT "tWILL TURN UP.*" 
5082 GOSUB10100 
5 085 PRINT"filF THAT NUMBER TURNS UP ON - 

-iANY ONE" 
5090 PRINT"K>F THE THREE DICE YOU WILL - 

-.GET" 
5100 PRINT "^BACK DOUBLE YOUR BET (YOU -. 

iWILL GET BACK" 
5110 PRINT'^TWICE AS MUCH AS YOU PUT -, 

-.IN) . IF YOUR" 
5120 PRINT"^NUMBER IS ON ANY TWO OF THE 

-.DICE YOU" 
5130 PRINT "iARE PAID THREE TIMES YOUR -> 

-.BET. AND IF" 
5140 PRINTHYOUR NUMBER IS ON ALL THREE 

-.DICE YOU" 
5150 PRINTHWILL BE PAID FOUR TIMES -> 

iYOUR BET." 
5160 PRINT "tOF COURSE, YOU LOSE YOUR -. 

-iMONEY BET IF" 
5170 PRINT"tYOUR NUMBER DOESN'T COME UP 

iAT ALL.*" 
5190 GOSUB10100 

5200 PRINT"fiHERE ARE SOME EXAMPLES: 
5210 PRINT" faYOU BET $10 ON NUMBER 5. 
5220 PRINT"*IF 5 IS ON ONE DICE YOU GET 

i$20 BACK." 
5230 PRINT H (YOU WON $10 OVER YOUR 

i$10 BET) " 
5240 PRINT'^IF TWO DICE TURN UP 5 YOU -i 

iGET $30 BACK" 
5250 PRINT"* (YOU WON $20 OVER YOUR 

-.$10 BET) 
5260 PRINT"*IF ALL THE DICE ARE 5 YOU n 

iGET $40 BACK" 
5270 PRINT "* (YOU WON $30 OVER YOUR 

n$10 BET) " 
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5280 PRINT"*IF NO DIE SHOWS A 5 YOU -. 

-iLOSE YOUR BET.*" 
5295 GOSUB10100 
5300 PRINT"filT SOUNDS LIKE THE ODDS ARE -. 

^ON YOUR" 
5310 PRINT"*SIDE, DOESN'T IT? PLAY IT A -, 

iFEW TIMES" 
5320 PRINT"*TO SEE IF YOU TEND TO WIN -. 

iOR LOSE." 
5330 PRINT"*CAN YOU DETERMINE THE EXACT -, 

-.ODDS " 
5340 PRINT"*OF WINNING?*" 
5380 XX$="x HIT SPACE TO BEGIN f": 

-.GOSUB10100 

5999 RETURN 

6000 PRINT"fi"; :REM DRAW BOARD 
6005 PRINT" $$$$$$$$$$ 

-, $$$$$$$$$ " 
6010 PRINT "x, MONEY r 

-.£ TURNS f " 
6020 PRINT " Q########P 

-i O#######P " 
6030 PRINT "1$ _!_ THRICE DICE 1 -. 

1" 

6040 PRINT " L$$$$$$$$; EEEEEEEEEEE 

6050 print "J±LL±±1±JJ±LLLLLU±LLLLLLL±± 
-, ((((((( " 

6100 PRINT "Ji*W» «««•«-<;"; CASH 

6200 PRINT "h*W';LEFT$(ZR$, 28) ;TURN 

6 999 RETURN 

8000 PRINT n hWi> " ; CASH ; "h W» $ " 

8010 PRINTBL$;"xCONGRATULATIONS 111" 

8020 PRINT"*jlYOU BROKE THE BANK." 

8099 END 

9000 PRINTBL$; "TOO BAD, YOU DON'T HAVE -. 

^ENOUGH MONEY" 
9010 PRINT"*TO MEET THE MINIMUM BET." 
9020 PRINT"**PLEASE COME BACK TOMORROW i 

iWITH" 
9030 PRINT"*xMORE MONEY." 
9099 END 
10100 IFXX$=""THENXX$="jl HIT SPACE TO -. 

^CONTINUE r" : REM GET 1 CHARACTER 
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10120 IFXX$<>" "THENPRINTXX$; : REM -. 

-iPRINT MESSAGE 
10130 GETXA$:IFXA$>""THEN10130:REM -. 

-iCLEAR BUFFER 
10140 GETXA$:IFXA$=""THEN10140 
10150 XA=VAL(XA$) 

10199 XX $="": RETURN 

10200 IFXP$ = n "THENXP$="2" : REM SET -. 
-^DEFAULT PROMPT - INPUT WITH PROMPT 

10220 GETXA$:IFXA$O""THEN10220: 

-iREM CLEAR BUFFER 
10250 XB$=LEFT$(" "+XP$+ZL$ , 2*LEN (XP$) + 

i4) :REM SET UP FOR PROMPT 
10260 PRINTXQ$;XB$; :REM PRINTS THE -. 

-iQUESTION FOLLOWED WITH PROPOSED -, 

-iANSWER 
10270 INPUTXA$ 
10280 XA=VAL(XA$) 

10299 XP$="":XB$="" :XQ$= n ": RETURN 
20000 IFXX=0THENXX=10:REM START COLUMN -i 

-i- DICE 
20011 IFyy=0THENYY=10:REM START ROW 
20015 XC$= n lT+LEFT$(ZD$ f YY-l) :REM -. 

-.STARTING ROW 
20020 PRINTXC$; : REM GO TO STARTING ROW 

20025 PRINTTAB(XX) ■" 

20026 PRINTTAB(XX) 

20027 PRINTTAB(XX) 

20028 PRINTTAB(XX) 

20029 PRINTTAB(XX) 



j- 



" r i rj." 
" r i fj." 
"X_L rl" 

II s r II n II ft y II 

20030 PRINTXC$;TAB(XX+1) ;T; :REM READY 

-iFOR FIRST SPOT ON DIE 
20033 XD=FNR(6) : REM PICK A RANDOM -. 

-iNUMBER (XD) 
20035 ONXDGOTO20040, 20050 ,20060,20070, 

i20080, 20090 
20040 PRINT"j:^»O_ l, :GOTO20099 
20050 PRINT i \lO_\W»O_":GOTO20099 
20060 PRINT "rQ^fl^Q":GOT02 0099 
20070 PRINT n zQ>Q<«WQ.>£l" :GOTO20099 
20080 PRINT "z&>Q.$«Q.$«Q.>Q. " : GOT02 0099 
20090 PRINT "]&>Q$<Q«<Q.i<Q. : >Q" 
20099 XX=0:YY=0:XC$="" :RETURN:REM -, 

-.XD=THE NUMBER FOR THIS ROLL 
READY . 
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These two games should just whet your appetite, as well as pro- 
vide you with some of the basic tools for creating some of your own 
gambling programs. Here's more grist for your mill: 

Albert H. Morehead, Richard L. Frey, and Geoffrey Mott-Smith. The New Com- 
plete Hoyle: The Official Rules of All Popular Games of Skill and Chance 
with the Most Authoritative Advice on Winning Play (Garden City: Double- 
day, 1964). 

Charles H. Goren. Hoyle Encyclopedia of Games: With Official Rules and 
Pointers on Play Including the Latest Laws of Contract Bridge. (Greystone 
Press, 1961.) 

Human beings have been gambling since the cavemen played 
games of chance with stones. For a partial history of games of chance, 
see A History of Playing Cards by Roger Tilley (New York: 1973). 

And last but not least— people have been cheating for as long as 
they've been playing games. For a personal recollection of a life of 
cardsharping, read Marked Cards and Loaded Dice, by Frank Garcia. 
Of course, we're trusting you to stay honest. Your PET playing com- 
panion is a Straight Arrow. 



Chapter 5 



Language and Counting 
Skills Games 



How Many? 

by Mac Oglesby 



Let the Red Baron help you sharpen your counting skills! 

Planes flash onto your screen. Their number and locations 
change with each try. Count How Many and type your answer into 
the computer. If you're right, PET will reward you with a graphics 
display. Enjoy it, and go on to your next turn by pressing the SPACE 
bar. If you counted wrong, PET will tell you to "try again." 
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How Many? is designed to be simple and sweet, for enjoyable 
learning and/or teaching. 

Level A: See how quickly and accurately you can count. Try count- 
ing in groups, rows, and combinations; challenge yourself to greater 
speed while staying accurate. 



100 REM ***HOW MANY?*** 

110 REM 

120 REM (C) MAC OGLESBY 

130 REM 

140 REM COPYRIGHT 1980 BY MAC OGLESBY 

150 REM 

160 REM LAST REVISION: 3/29/80 17:00 

170 REM 

1000 REM ***INITIALIZATION 

1010 POKE 59468,12 :REM GRAPHIC MODE 

1020 X=RND(-TI) :REM RANDOMIZE 

1030 DIM D(20) 

1200 DN$= "^^hhhW^hW WW^ThW WWW " 

1300 RT$= "»»»»»»»»»»»»»»»»» 

1400 FOR J=l TO 9:Z(J)=J:NEXT 

1500 PL$='\l TO-rli: rWrI$^^^<r7# 2 -. 

1900 FOR J=l TO 200:NEXT 

2000 FOR J=9 TO 1 STEP -1 

2010 : PRINT "fi"; 

2020 :X=1+INT(RND(1) *J) :N=Z(X) 

2030 :Q$="]iHOWW«<MANY? " 

2100 :FOR K=l TO N 

2110 : :Y=2+INT(RND(1)*19) 

2150 : :R=INT((Y-l)/4) :C=Y-R*4-1 

2160 ::IF D(Y)=0 THEN D(Y)=1:G0T0 2200 

2170 : :GOTO 2110 

2200 ::PRINT "Ja";LEFT$ (DN$,1+R*5) ;LEFT$ ( 

-.RT$,1+C*9) ;PL$ 
2210 ::FOR L=l TO 200:NEXT 
2220 :NEXT 
2300 : PRINT Q$; 
2310 :GOSUB 10000 
2330 :PRINT A$;:FOR L=l TO 400:NEXT 
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2400 

2500 
2510 
2600 
2610 
2700 
2710 
2800 
2810 
2820 
2830 
2850 
2860 
3000 
3050 
3100 
3200 

3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3300 
3500 
10000 
10100 
10200 
10300 
READY. 



RETURN FOR MORE"; 



:IF VAL(A$)ON THEN Q$="llTRYThM<KAG 

-.AIN <":GOTO 2300 
: PRINT "JirTHAT ' S^hM^-^RIGHT i " 
:FOR L=l TO 400: NEXT 
:T9=Z(J) :Z(J)=Z(X) :Z(X)=T9 
:GOSUB 3000 

:FOR K=l TO 100: NEXT 

:FOR K=l TO 20:D(K)=0:NEXT 

NEXT 

PRINT "fiPRESS 

GOSUB 10000 

IF ASC(A$)=13 THEN RUN 

PRINT "fiBYE FOR NOW. . . " 

END 

REM ***HAPPY FACES 

FOR K=l TO 200: NEXT 

PRINT "R "; 

f$=". .t«+t«a&& V":r>$="tn*««" 

-y.L$="««««":U$= n V11««" 
R=9:D=5:L=8:U=4 
FOR 1=1 TO 3 

:FOR K=l TO R:PRINT F$; :NEXT 
:FOR K=l TO D:PRINT D$;F$;:NEXT 
:FOR K=l TO L:PRINT L$;F$;:NEXT 
:FOR K=l TO U:PRINT U$;F$; :NEXT 
: R=R-2 : D=D-2 : L=L-2 : U=U-2 
NEXT 

100: NEXT 



FOR K=l TO 

RETURN 
REM GET 
GET A$:IF 
GET A$:IF 
RETURN 



A$<>"" THEN 10100 
A$="" THEN 10200 



Crossword Puzzle 

(Puzzlebox and Puzzle Entry) 

by Len Lindsay 



You can create personalized crossword puzzles for your own en- 
joyment and for friends and/or students with your versatile PET. 
Two ^-ograms go together to make up your Crossword Puzzle. 

Puzzle Entry does all the busy work for you of assigning num- 
bers and locations for your words in a 7 x 12 space area. You provide 
the words and the clues. Create directly on the screen, or figure out 
your puzzle on paper first and just type it in. Use the keypad to 
move the cursor as you enter the letters where you want them. Use 
DEL to delete and 5 to stop. Here's how you start: 



WELCOME TO CROSSWORD PUZZLE 
THIS PROGRAM NEEDS A DATA TAPE THAT VOU 
CREATE USING THE PUZZLE ENTRY PROGRAM 
PLEASE GET THE DATA TAPE READV FOR THIS 
PUZZLE. WHEN VOU HAVE IT READV IN TAPE 
UNIT 1 HIT ss;ra:* 



■JMJ 

PRESS PLAV ON TAPE #1 




immazzimniiitiu 



HIT THE STOP BUTTON ON THE TAPE UNIT 
AND REWIND THE TAPE - THEN STORE IT IN 
ITS PROPER PLACE - HIT AfflHal WHEN VOU 
ARE READV TO BEGIN! 
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CROSS WOOD PUZZLE 
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When you've added the words you want, you're ready to type 
in the clues or "hints." PET will ask you: 

WHICH HINT NUMBER DO YOU WANT TO DO? 

You type in 2. PET has assigned 2 to your word, which is FAST. 
You type in your hint, which is: NOT SLOW. PET asks for the next 
hint number. When you're finished with all of your words, type Q 
for QUIT. 

PET now asks you if you're ready to SAVE all the informa- 
tion about your puzzle, the words, and your hints, on a DATA 
TAPE. The DATA TAPE is simply a cassette tape you place in your 
PET tape recorder, or a disk, if you're lucky enough to have a disk- 
loading machine. PET writes the Data Tape for you. Label the tape, 
and you're ready to use it with Puzzle Box to display your finished 
crossword puzzle on the screen. 

Puzzle Box displays your puzzle on the screen and gives hints to 
the player trying to guess your words. The player chooses the spaces 
he'd like to fill in that correspond to a word. PET prints the hint for 
him, and the boxes in the puzzle that contain the unknown word 
light up. If he guesses correctly, the word is filled in and he continues 
to the next guess. 
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[EARNING? 




CROSSWORD PUZZLE 
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Crossword Puzzle is a fun way to learn spelling and vocabulary 
words. The advantage of the two-program method Len devised is that 
teachers and parents can make up specialized puzzle tapes for the 
lucky player they've chosen to entertain and instruct with PET. 

Level B,C: Fine for all ages— very young children can also learn and 
enjoy with a little help from their friends, junior or adult. 
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REM WORKS ON PET 2001-8, NEW PET/CBM, 

-i & BASIC 4.0 

1 REM***PUZZLEBOX - A CROSSWORD PUZZLE ■ 

-.PROGRAM 

2 REM***ORIGINAL PROGRAM 

3 REM***(C) 1980 

4 REM***LEN LINDSAY 

5 REM***01-30-80 

6 REM*** CHANGE ONLY TWO LINES AS -i 

-.INDICATED FOR DISK DATA FILE -. 
iCREATION 

8 REM***REQUIRES DATA TAPE/DISK CREATED 

-.BY PUZZLE ENTRY*** 

9 REM***USES MAIN SUBROUTINES 10100, 

-i 10200 

10 POKE59468,12 

15 XQ=RND(-TI) :XQ=0:REM RANDOM SEED 
20 PRINT "fi"; 

30 NC=12:NR=7:DIM PZ$ (NC,NR) :REM MAX -. 

-.PUZZLE ARRAY 

31 DIM N(NC,NR):REM NUMBERS FOR PUZZLE 

32 MW=20:DIM W$(1,MW):REM MAX WORDS 

33 DIMH$(1,MW) :REM MAX HINTS 

35 DIM WD(NC):REM WORD DOWN FLAG 
50 ZS$=" 

" :REM 3 9 SPACE 

52 zd$= n $$w$$a$w$$wmm$+i " : 

-.REM 24 DOWN 

53 REM 

54 ZZ$=" 

V'rREM 40 DELETE 
56 ZL$="««««««««««" :REM 20 -. 

-.LEFT 
60 RM$="li" + ZD$+ZS$+"Jl" + ZD$+ZZ$+ZZ$ 
62 B$="iM<««^i&&«^^i^iTT" 

64 C$="l <«*_>_<«+ TT" 

69 SM$="x* *<«i > <«iO$JLr'n " 
9 GOSUB5000:REM INSTRUCTIONS 
100 GOSUB7000:REM READ DATA TAPE 
110 GOSUB6000:REM DRAW PUZZLE BOXES 
120 GOSUB6300:REM FILL IN BOXES 
200 PRINTRM$; 
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210 PRINT'VlWHAT word would you like to -. 

-.TRYr"; 
215 GOSUB10200 
220 IFXA=0THEN200 
230 IFXA<10RXA>NWTHENPRINTRM$;"OUT OF -. 

-iRANGE - WHAT WORD NEXT" ; :GOT0215 
235 WN=XA:REM WORD NUMBER 
240 GOSUB6500:REM CHECK IF DONE ALREADY -> 

-.AND LIGHT UP IF NOT 
250 IFWC=1THEN215:REM WORD PICKED IS -. 

-.COMPLETE 
260 PRINTRM$;H$(WD,WN) :REM PRINT HINT 
270 GOSUB10200 
280 IFXA$="2"THEN260 
290 IFXA$OW$(WD f WN)THENPRINTRM$; n THAT -. 

-.IS NOT IT ..." :GOSUB8200:GOTO210 

300 PRINTRM$ ;"£** ******** THAT IS IT i 

301 GOSUB8400:REM PUT WORD INTO PUZZLE 

302 PRINTRM$; 

304 FORQ=lTOLEN(XA$) 

305 IFQ>9THEN309:REM LIMIT TO LINE FOR -. 

iFACES 

306 PRINT"j:* *<«+ ";MID$(XA$,Q, 

il);" ^^JPKr?? "; 

308 :XP=1:GOSUB10400:REM PAUSE 

309 NEXTQ 

320 GOSUB9000:REM SEE IF PUZZLE DONE 
330 IFPQ=0THEN200:REM NEXT WORD 
340 PRINTRM$;"jlTHE PUZZLE IS NOW -i 

iCOMPLETE>"; 
350 PRINTSM$;SM$;SM$;"T" 
360 END 

4999 END 

5000 PRINT "fiWELCOME TO CROSSWORD PUZZLE" 
5010 PRINT'^THIS PROGRAM NEEDS A DATA i 

-.TAPE THAT YOU" 
5020 PRINT "^CREATE USING THE PUZZLE -. 

-.ENTRY PROGRAM. " 
5030 PRINT "^PLEASE GET THE DATA TAPE -i 

-.READY FOR THIS" 
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5040 PRINT'^PUZZLE. WHEN YOU HAVE IT 

-.READY IN TAPE" 
5050 PRINT'^UNIT 1 HIT iSPACE" 
5060 GOSUB10130 
5099 RETURN 

6000 REM*** DRAW PUZZLE BOXES *** 
6010 A=12 
6020 D=7 
6060 PRINTS"; 
6070 FORXl=lTOD 
6080 :F0RX2=1T02 
6100 ::F0RX3=1T0A 
6110 :::PRINT"1 "; 
6120 ::NEXTX3 
6130 :: PRINT "_!&." 
6140 :NEXTX2 
6160 :F0RX3=1T0A 
6170 : :PRINT"j_££"; 
6180 :NEXTX3 
6190 :PRINT"j_&" 
6200 NEXTXl 
6210 PRINT "hi. 

-.PUZZLE 
6220 F0RX=1T0NR*3 
6230 :PRINT'V 
6240 NEXTX 

6299 RETURN 

6300 PRINT"M"; :REM FILL IN BOXES 
6310 FORY=lTONR 

6315 PRINT"*"; 

6320 :FORX=lTONC 

6330 : :IFPZ$(X,Y)="."THENPRINTB$; : 

-.GOTO6350 
6335 ::N=N(X f Y) 

6340 : :IFN=0THENPRINT"»>"; :GOTO6350 
6345 : :GOSUB6400:REM N TO NS$ 
6347 :: PR INTNS $;"_!_"; t 
6350 :NEXTX 
6360 : PRINT "W" 
6370 NEXTY 

6399 RETURN 

6400 N$=STR$(N) .-REM NUMBER TO STRING 
6410 Q=LEN(N$) 



COMPUTER CROSSWORD 
ii 
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6420 NS$=MID$(N$+" ",2 f 2) 

6499 RETURN 

6500 PRINT "ji^^» n ; :REM CHECK IF WORD -. 

-iDONE ALREADY 
6510 GOSUB8000:REM FIND START ROW AND -i 

-iCOLUMN OF WORD 
6520 GOSUB8100:REM FIND WORD DIRECTION 
6530 GOSUB8200:REM LIGHT UP THE WORDS -i 

-iSPACES & CHECK IF COMPLETE 
6540 IFWC=1THENPRINTRM$;"W0RD IS -. 

-.COMPLETE-TRY ANOTHER"; :GOSUB8200 
6599 RETURN 
7000 PRINT"fWxOK!":REM READ DATA TAPE 

7010 OPENl:REM OPEN TAPE FOR READ 

7011 REM>>>FOR 2040 DISK>>> OPEN l f 8,2, 

i"0 :PUZZLE. DATA, SEQ, READ" :REM USE -. 

-.NAME 
7020 PRINT "^xFILE IS OPENED - NOW I -. 

-MILL READ DATA!" 
7030 INPUT#1,NC 
7080 INPUT#1,NR 
7090 INPUT#1, NW: PRINT "*" ; 
7100 FORR=lTONR 
7110 :FORC=lTONC 
7120 : :INPUT#l,PZ$(C f R) 
7130 : :INPUT#1,N(C,R) 
7140 :NEXTC 
7150 : PRINT "j:*f "; 
7160 NEXTR 
7170 FORC=lTONW 
7180 :INPUT#1,W$(0,C) 
7190 :INPUT#l f W$(l,C) 
7200 :INPUT#1,H$(0,C) 
7210 :INPUT#1,H$(1,C) 
7220 : PRINT"*" ; 
7230 NEXTC 
7240 CLOSEl 
7250 PRINT 

7260 PRINT "DATA ALL READ" 
7270 PRINT'^HIT THE STOP BUTTON ON THE -. 

-.TAPE UNIT" 
7280 PRINT "^AND REWIND THE TAPE. PUT -i 

-iTAPE BACK IN" 
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7290 PRINTHlTS PROPER PLACE. HIT -. 

-iXSPACEr WHEN YOU" 
7300 PRINTHARE READY TO START." 
7310 GOSUB10130 
7399 RETURN 
8000 REM FIND START ROW AND COLUMN OF -. 

-.WORD 
8010 FORY=lTONR 
8020 :FORX=lTONC 
8030 ::IFN(X,Y)=WNTHENPX=X:PY=Y:X=NC: 

->Y=NR 
8040 :NEXTX 
8050 NEXTY 

8099 RETURN 

8100 REM FIND WORD DIRECTION 
8110 WD=0:REM INIT 

8120 IFLEN(W$(1,WN) ) >1THENWD=1 

8130 IFWD=0THEN8199:REM DIR FOUND 

8140 IFLEN(W$(0,WN) )=1THEN8199:REM DIR -. 

-.FOUND 
8150 PRINTRM$; "WHICH WORD? jiArCROSS OR -. 

-.XDrOWN?" 
8160 GOSUB10130 

8170 IFXA$= n A"THENWD=0:GOTO8199 
8180 IFXA$="D"THENWD=l:GOT08199 
8190 GOTO8160 

8199 RETURN 

8200 WC=1:REM WORD COMPLETE FLAG ON -i 

-.INIT - CHECK IF COMPLETE - CHANGE 

-.SPOT 
8210 QX=PX:QY=PY:REM INIT 
8220 CL=32727+3*QX+40*(QY*3) 
8230 Q=PEEK(CL) 
8240 IFQ=102ORQX>NCORQY>NRTHEN8299 : 

-iREM WORD DONE 
8250 IFQ=32THENWC=0:REM WORD NOT -. 

-iCOMPLETE YET 
8260 IFQ<129THENPOKECL,Q+128:REM LIGHT -. 

-.UP SPOT 
8265 IFQ>128THENPOKECL f Q-128:REM -. 

-iUNLIGHT SPOT 
8270 QY=QY+(WD*1) :QX=QX+( (1-WD)*1) : 

-.GOTO8220 
8299 RETURN 
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8400 REM PUT WORD INTO PUZZLE 

8410 Q=0:QX=PX:QY=PY:REM INIT 

8420 FORQ=lTOLEN(W$(WD f WN) ) 

8430 :CL=32727+3*QX+40*(QY*3) 

8440 :POKECL,ASC(MID$(W$(WD,WN) ,Q, 1) )-64 

8450 :QY=QY+(WD*1) :QX=QX+( (1-WD) *1) 

8460 NEXTQ 

8499 RETURN 

9000 PQ=1:REM INIT-TEST IF PUZZLE IS -. 

-.COMPLETE 
9010 F0RY=1T07 
9020 :F0RX=1T012 
9030 : :CL=32727+3*X+40*(Y*3) 
9040 : :IFPEEK(CL)=32THENPQ=0:X=12:Y=7 
9050 :NEXTX 
9060 NEXTY 
9099 RETURN 
10100 IFXX$=""THENXX$="x HIT SPACE TO -i 

^CONTINUE r" : REM GET 1 CHARACTER 
10120 IFXX$<>" n THENPRINTXX$; : REM -. 

-iPRINT MESSAGE 
10130 GETXA$:IFXA$>""THEN10130:REM -i 

-.CLEAR BUFFER 
10140 GETXA$:IFXA$=""THEN10140 
10150 XA=VAL(XA$) 

10199 XX $="": RETURN 

10200 IFXP$= lin THENXP$="2" : REM SET -. 
-iDEFAULT PROMPT - INPUT WITH PROMPT 

10220 GETXA$:IFXA$O ,,H THEN10220: 

-.REM CLEAR BUFFER 
10250 XB$=LEFT$(" "+XP$+ZL$,2*LEN(XP$) + 

i4 ) : REM SET UP FOR PROMPT 
10260 PRINTXQ$;XB$;:REM PRINTS THE -. 

-.QUESTION FOLLOWED WITH PROPOSED -. 

-^ANSWER 
10270 INPUTXA$ 
10280 XA=VAL(XA$) 

10299 XP$= ,,,, :XB$= ,, ":XQ$="": RETURN 
10400 IFXP=0THENXP=10:REM PAUSE 
10420 XJ=TI+60*XP 
10430 IFTKXJTHEN10430 
10499 XJ=0:XP=0: RETURN 
READY . 
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REM WORKS ON PET 2001-8, NEW PET/CBM -i 

-.& BASIC 4.0 

1 REM***PUZZLE ENTRY 

2 REM***ORIGINAL PROGRAM 

3 REM***(C) 1980 

4 REM***LEN LINDSAY 

5 REM***01/28/80 

9 REM***USES MAIN SUBROUTINES 10100, 

-i 10200 

10 POKE59468,12:REM GRAPHICS 

15 XQ=RND(-TI) :XQ=0:REM SEED RANDOM 
20 PRINT "fir^ONE MOMENT PLEASE" 

30 NC=12:NR=7:DIM PZ$ (NC, NR) :REM -. 

-.MAXIMUM PUZZLE ARRAY 

31 DIMN(NC,NR) :REM NUMBERS FOR PUZZLE 

32 MW=20:DIMW$(1,MW) :REM MAX WORDS 

33 DIMH$(1,MW) :REM MAX HINTS 

35 DIM WD(NC):REM WORD DOWN FLAG 

51 REM 

52 ZZ$=" 

-.":REM 40 DELETE 
54 ZL$="«««««««««««m««m 
->««««" -.REM Aid LEFT 

5 6 zD$="mtWtWW$WmWWW : 

-.REM 2 3 DOWN 
60 CR$=CHR$(13) :REM [RETURN] 
66 ZV=32768:REM VIDEO START 
80 GOSUB3100 :GOSUB3200 :GOSUB3300 : 

-.REM I NIT ARRAYS 
85 GOSUB6000:REM DRAW BOARD 
90 GOSUB5000:REM INSTRUCTIONS 
200 PRINT"Ji"; :REM READY TO START 
210 X=1:Y=1:REM INIT CURSOR LOCATION 
220 CL=40*(Y-1) + (X-1)+ZV:REM CURRENT -. 

-.SCREEN LOCATION 
230 POKECL,PEEK(CL)+128:REM HIGHLIGHT -. 

-.CURRENT LOCATION 
240 GOSUB10140:REM GET 
250 POKECL,PEEK(CL)-128:REM RETURN -. 

-^CURRENT SCREEN LOCATION TO NORMAL 
260 IFXA$>= n A n ANDXA$<= n Z n THENX=X+l: 

iIFX<=NC+lTHENPRINTXA$; :GOT0285 : 

-•REM UPDATE 
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262 IFXA$=CHR$(20)THENPRINT".«"; : 

-iREM DELETE 
265 IFXA=0THENGOTO285:REM ILLEGAL -. 

^RESPONSE 
270 ONXAGOSUB310,320,330,340,350,360, 

-.370,380,390 
280 IFXA=5THENPRINT"Ji"+LEFT$(ZD$, 

-.NR)+"iFINISHED?rJl n :GOTO400 

285 IFX>NCTHENX=NC: PRINT "<*; 

286 IFY>NRTHENY=NR:PRINT"T"; 

287 IFY<1THENY=1 

288 IFX<1THENX=1:IFY>1THENPRINT"»"; 
290 GOTO220:REM NEXT 

300 REM CORRECT POSITION VIA NUMERIC -. 

-.INPUT - 5 MEANS END 
310 PRINT"tK"; :X=X-1:Y=Y+1: RETURN 
320 PRINT "* "; :Y=Y+1: RETURN 
330 PRINT "*» " ; : X=X+1 : Y=Y+1 : RETURN 
340 PRINT "« ,, ;:X=X-1: RETURN 
350 RETURN 

360 PRINT n »";:X=X+l: RETURN 
370 PRINT "T"*"; :X=X-1:Y=Y-1: RETURN 
380 PRINT"? "; :Y=Y-1 : RETURN 
390 PRINT"?*"; :X=X+1:Y=Y-1: RETURN 
400 GOSUB10130:REM GET - SEE IF DONE OR -. 

-.NOT 
410 IFXA$="N"THENPRINT"Ji"+LEFT$(ZD$, 

-.NR)+" &&&&&&&&&h ": :GOTO210: 

-.REM NOT DONE 
420 IFXA$O"Y ,, THENGOTO400 
450 GOSUB1000:REM ASSIGN PUZZLE ARRAY 
460 GOSUB3000:REM ASSIGN PUZZLE NUMBERS i 

->& WORDS 
470 GOSUB4000:REM ASSIGN PUZZLE HINTS 
480 PR INT" fiREAD Y TO SAVE PUZZLE DATA ON -i 

iTAPE?":GOSUBl0130 
490 IFXA$="Y"THEN2000 
500 PRINT'^WANT TO CHANGE YOUR PUZZLE?": 

-.GOSUB10130 

510 IFXA$O"Y"THEN520 

511 PRINT'^IF YOU CHANGE YOUR PUZZLE" 

512 PRINT"\hTOU WILL THEN HAVE TO REDO" 

513 PRINT'^ALL OF YOUR HINTS TOO!" 
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514 PRINTHTHE WORDS IN THE PUZZLE WILL -. 

^REMAIN," 

515 PRINTOUT THE HINTS WILL BE GONE." 

516 PRINT "ttDO YOU REALLY WANT TO REDO -. 

-iTHE PUZZLE?" :GOSUB10130 

517 IFXA$O"Y"THEN520 

518 GOSUB3400:REM INIT 

519 GOT085 

520 PRINT HWANT TO UPDATE YOUR HINTS?": 

-.GOSUB10130 
530 IFXA$="Y"THEN470 
540 PRINT "^THEN I DON'T KNOW WHAT YOU -. 

-.WANT" 
550 END 

1000 OPEN3,3:REM OPEN SCREEN 
1010 PRINT "Ji"; 

1020 FORY=lTONR:REM EACH ROW 
1030 :FORX=lTONC:REM EACH COLUMN 
1040 : :GET#3,PZ$(X,Y) :REM GET CHARACTER 
1045 : :PRINT"<i."+PZ$(X,Y) ; 
1050 :NEXTX 
1060 :PRINT 
1070 NEXTY 
1090 CLOSE3 
1100 PRINT" &&&&&&&&& " 
1110 PRINT"iONE MOMENT PLEASE!" 
1199 RETURN 

2000 PRINT "fi ";: REM SAVE TO TAPE 
2010 PRINT"HIT rSPACEr WHEN YOU HAVE A -. 

iDATA TAPE" 
2020 PRINT'^READY IN TAPE UNIT 1" 
2030 GOSUB10130 
2040 PRINT "fi^xOKi" 

2050 OPEN1, 1,1, "PUZZLE. DATA":REM OPEN -. 

-iTAPE FOR A WRITE 

2051 REM >>>>> FOR 2040 DISK >>>>> -. 

-.0PEN8, 8, 15 :PRINT#8,"S0: PUZZLE. DATA 
V:CLOSE8 

2052 REM >>>>> THE ABOVE LINE SCRATCHES -, 

iTHE PREVIOUS FILE 

2053 REM >>>>> TO SAVE MULTIPLE PUZZLE -i 

-.DATA USE DIFFERENT NAMES 
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2054 REM >>>>> AND MODIFY THE CROSSWORD -, 

-.PUZZLE PROGRAM TO MATCH 

2055 REM >>>>> OPEN l f 8,2 , "0 :PUZZLE. DATA 

-ifSEQ, WRITE": REM FOR 2040 DISK 
2060 PRINT "^nFILE OPENED - DATA NOW -. 

-■BEING WRITTEN" 
2070 PRINT#1,NC;CR$; 
2080 PRINT#1,NR;CR$; 
20 85 PRINTtl , NW; CR$ ; : PRINT" * " ; 
2090 FORR=lTONR:REM EACH ROW 
2100 :FORC=lTONC:REM EACH COLUMN 
2110 :: PRINTtl, PZ $ (C , R) ;CR$; 
2115 ::PRINT#l f N(C,R) ;CR$; 
2120 :NEXTC 
2130 : PRINT n £*r"; 
2140 NEXTR 
2210 FORC=lTONW 
2220 :PRINT#1,W$(0,C) ;CR$; 
2230 :PRINT#1,W$(1,C) ;CR$; 
2240 :PRINT#1,H$(0,C) ;CR$; 
2250 :PRINT#1,H$(1,C) ;CR$: 
2255 : PRINT"*"; 
2260- NEXTC 
2270 CLOSE1 
2280 PRINT 
2290 PRINT'^xYOUR PUZZLE DATA IS NOW ON - 

-.TAPE" 
2300 PRINT n tcLABEL YOUR TAPE APPROPRIATE 

-.LY" 
2310 PRINT'^DO YOU WANT ANOTHER COPY ON - 

-iTAPE?" 
2320 GOSUB10130 
2330 IFXA$="Y"THEN2000 
2399 END 

3000 GOSUB3100:REM CLEAR WORD ARRAY -, 

-.FIRST 

3001 GOSUB3400:REM INIT NUMBER ARRAY 

3002 NM=0:REM INIT NUMBER 
3005 FORR=lTONR:REM EACH ROW 
3010 :WA=0:REM INIT ACROSS FLAG 
3020 :FORC=lTONC:REM EACH COLUMN 
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3030 : :IFPZ$(C,R)="."THENWA=0:WD(C)=0: 

-,GOTO3070:REM NEXT C 
3050 : : IFWA=0ANDWA<NCTHENGOSUB9000 : 

-iREM SEE IF ADD NUMBER AND WORD -n 

-.FOR ACROSS 
3060 ::IFWD(C)=0ANDWD(C)<NRTHENGOSUB9100 

-i:REM CHECK WORD DOWN & NUMBER 
3070 :NEXTC 
3080 NEXTR 
3090 NW=NM:REM NUMBER OF WORDS 

3099 RETURN 

3100 FORY=lTOMW 
3110 :FORX=0TO1 
3120 ::W$(X,Y)=". n 
3130 :NEXTX 

3140 NEXTY 

3199 RETURN 

3200 FORY=lTOMW 
3210 :FORX=0TO1 
3220 ::H$(X,Y)="." 
3230 :NEXTX 

3240 NEXTY 

3299 RETURN 

3300 FORY=1TONR 
3310 :FORX=lTONC 
3320 ::PZ$(X,Y)= n ." 
3340 :NEXTX 

3350 NEXTY 

3400 FORY=lTONR 

3410 :FORX=lTONC 

3430 ::N(X,Y)=0 

3440 :NEXTX 

3450 NEXTY 

3499 RETURN 

4000 PRINT"fiWHICH HINT NUMBER DO YOU -i 

iWANT TO DO?" 

4001 PRINT"^(OR TYPE Q FOR nQrUIT) " 
4010 GOSUB10200 

4015 IFXA$="Q n THEN4199 

4020 IFXA=0THEN4000:REM ERROR 

4021 IFXA>NWORXA<lTHENPRINT"ftOUT OF -i 

-.RANGE - WHICH NUMBER?" :GOTO4001 
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4023 HD=0:REM INIT 
4025 HN=XA 

4027 IFW$(1,HN)<>"."THENHD=1 

4028 IFW$(0,HN)<>"."ANDHD=1THEN4030 

4029 GOTO4100 

4 030 PRINT "^l-Ar CROSS OR £DrOWN?" 

4040 GOSUB10130 

4050 IFXA$="A n THENHD=0:GOTO4100 

4060 IFXA$="D"THENHD=1:GOTO4100 

4070 GOTO4040:REM ERROR 

4100 PRINT"fi n ; 

4105 PRINT"*WORD";HN;"IS: ";W$(HD,HN) 

4110 PRINT'^HINT IS:t" 

4120 XP$=H$(HD,HN) :GOSUB10200 

4125 IFLEN(XA$)>39THENPRINT"fiTHE HINT -. 

-.MUST BE LESS THAN 40 CHARACTERS": 

-.GOTO4105 
4130 H$(HD,HN)=XA$ 
4140 GOTO4000 
4199 RETURN 
5000 PRINT "ttUSE NUMERIC KEYPAD FOR -. 

-iCURSOR MOVEMENT" 
5010 PRINT 
5020 PRINT"7 8 9 
5030 PRINT" \ ~ / 
5040 PRINT" W 
5050 PRINT"4"1*M6 
5060 PRINT" /1\ 
5070 PRINT" / 1 \ 
5080 PRINT"1 2 3 
5090 PRINT"^ENTER LETTERS WHERE YOU -. 

-.WANT THEM IN 
5100 PRINT HYOUR CROSSWORD PUZZLE. HIT -. 

-■r5r TO STOP! 
5199 RETURN 

6000 PRINT"fi"; :REM DRAW PUZZLE AS IS NOW 
6010 FORY=lTONR 
6020 :FORX=lTONC 
6030 : :PRINTPZ$(X,Y) ; 
6040 :NEXTX 
6050 : PRINT"*." 
6060 NEXTY 
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6070 F0RX=1T0NC+1: PRINT "&"; :NEXTX 

6080 PRINT 

6099 RETURN 

9000 IFC+1>NCTHEN9099:REM NO WORD 

9005 IFPZ$(C+1,R)= ,, ."THEN9099:REM NO -. 

-.WORD ACROSS 
9010 WA=1:REM WORD ACROSS FLAG ON 
9020 NM=NM+1:REM INCREMENT CURRENT WORD • 

-.NUMBER FOR PUZZLE 
9030 N(C,R)=NM:REM ASSIGN NUMBER ARRAY 
9040 W$="":REM INIT WORD 

9050 Q=C:REM INIT WORD CHARACTER COLUMN 
9060 IFQ>NCTHENW$ ( , NM) =W$ :GOTO9099 
9065 IFPZ$(Q,R)=". "THENW$(0,NM)=W$: 

iGOTO9099:REM WORD FINISHED 
9070 W$=W$+PZ$(Q,R) :REM ADD LETTER TO -. 

-.WORD 
9080 Q=Q+1:REM NEXT LETTER 
9090 GOTO9060:REM NEXT LETTER 

9099 RETURN 

9100 IFR+1>NRTHEN9199:REM NO WORD DOWN 
9105 IFPZ$(C f R+l)="."THEN9199:REM NO -. 

-.WORD DOWN 
9110 WD(C)=1:REM WORD DOWN FLAG ON 
9120 IFN(C,R)>0THEN9150:REM ALREADY HAS - 

iA NUMBER 
9130 NM=NM+1:REM INCREMENT NUMBER 
9140 N(C,R)=NM:REM ASSIGN NUMBER 
9150 W$="":Q=R:REM INIT WORD AND WORD -. 

^CHARACTER ROW 
9160 IFQ>NRTHENW$(l,NM)=W$:GOT09199 
9165 IFPZ$(C f Q)="."THENW$(l f NM)=W$: 

iGOT09199:REM WORD FINISHED 
9170 W$=W$+PZ$(C,Q) :REM ADD LETTER TO -. 

-.WORD 
9180 Q=Q+1:REM NEXT LETTER 
9190 GOTO9160:REM NEXT LETTER 
9199 RETURN 
9999 END 
10100 IFXX$= l,n THENXX$="x HIT SPACE TO -i 

-.CONTINUE f" : REM GET 1 CHARACTER 
10120 IFXX$<>" "THENPRINTXX$; : REM -. 

-.PRINT MESSAGE 
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10130 GETXA$:IFXA$>""THEN10130:REM -n 

-.CLEAR BUFFER 
10140 GETXA$:IFXA$=""THEN10140 
10150 XA=VAL(XA$) 

10199 XX $="": RETURN 

10200 IFXP$= ,, "THENXP$="2 n : REM SET n 
-.DEFAULT PROMPT - INPUT WITH PROMPT 

10220 GETXA$:IFXA$<> n,l THENl0220: 

-nREM CLEAR BUFFER 
10250 XB$=LEFT$(" "+XP$+ZL$,2*LEN(XP$) + 

-,4) :REM SET UP FOR PROMPT 
10260 PRINTXQ$;XB$;:REM PRINTS THE -. 

-.QUESTION FOLLOWED WITH PROPOSED -. 

-.ANSWER 
10270 INPUTXA$ 
10280 XA=VAL(XA$) 

10299 XP$= ,,,, :XB§= ,,,, :XQ$= ,,,, : RETURN 
READY. 



Wordsearch— A Hunt for Hidden Words 

by Len Lindsay 



Here's your chance to be the King of the Puzzle World. As 
Benevolent Dictator, use this hide-a-word puzzle to challenge friends 
and students. You're in complete control of the hidden words and 
can tailor this puzzle to fit like a glove. 

If you have a printer, players can puzzle over a copy. But you 
don't need more equipment to enjoy this game— just figure it out on 
the screen. 

The basic program creates a puzzle of the words you select, hid- 
den randomly. You have a variety of options as creator. PET will 
print the puzzle on your screen or printer. The puzzle dimensions are 
variable, and PET will supply an answer key as well as a list of the 
words you've hidden. You can choose from a MENU of variations, 
such as a new puzzle PET creates for you from the same list of 
words. Your MENU includes-. 

1. Print a list of hidden words to screen or printer. 

2. Print the puzzle on the screen or printer. 

3. Print an answer key on the screen or printer. 

4. Create a new puzzle using the words already supplied. 

5. Start a new puzzle with new words. 

6. End the program. 

Try entering your longest words first. If PET has a problem fit- 
ting words into your puzzle, it will let you know. PET hasn't forgot- 
ten you and will do its level best to help you create a seeming chaos 
of letters concealing your hidden words. 

Here's a sample puzzle: 

'HERE ARE THE WORDS I'VE HIDDEN: 

ELEPHANT 

GIRAFFE 

HIPPOPOTAMUS 

RACCOON 

GOOSE 

PENGUIN 

UNICORN 

GOAT 

MOUSE 

194 
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WORBSEflRCH puzzle 
V V D K N N X E N B H H N T B P N H 
H K R T R Q Z G T R N P I fl L D W - 
Q fl C J L V Z G T N U G C S G T 
B S B L C S J fl I L H C E P C B X 
T M B N F N I T R B N ft I G K J P 
P E W G LI I N L fl P K V H N C L T S P 
fl W M E S LI G M F Q £ X f P U C X E L 
X ZfilS M P U F D W fl V OEHflLE 
M F P U D M W J E V F N ft L J L _ R X 
HIPP P T H M U S X M S H £ I D 
FGMVMOQPPFHlXKVUIiDI 

WORHSEHRCH PUZZLE 

N 

_______|3_£_ ____ 

_______ Q (3 J Q J...J _ _ _ _ _ f, _ 

_ _ _ _ fl I - N C - 

j R ft I fl - 

P ENGUIN-fl H N C S - 

E S U MP P U C - £ - 

________p__-__£_f,__ 

HIPP P TflllUS E 
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HERE ARE THE WORDS I'VE HIDDEN: 

MARTIANHUNT 

SQUARE 

QWERT 

CAPTURE 

BUTTON 

HURKLE 

WORDSEflRCH 

MOT IE 

SINNERS 



PET GAMES 

U S M TQFZPR G M G V E A A I A V 

S P J F Z E W Z E R U T P A C V H 

L Q L A T A B X E C X K U E G I S T Z 

B B U T V I A Z W Q Q A P J I H I H S 

F M U A U C E V G C W E B M I U N I V 

V V Q T R B A Ii X F E S H Z T R N N G 

LflECTE J S V D R X Z V ARE V P 

G V Q R Z F V A C T R H J E L R J V 

B N T Q K B N A L C R V L R J E S A S 

T N U H N A I T R A M I V B I B G J 

H C R A E S B R W G L B U T Z N B W 
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PET GAMES 
- - M 

S ERUTPflC--- 

-BLI--I Q HI-- 

U R — — E U U N - - 

T R E R N - - 

TE R K E - - 

T LR-- 

TNUHNfilTRflM 

HCRflESDROW 



For more words, consult: Jane Shaw Whitfield. Webster's New 
World Crossword Puzzle Dictionary (New York: Collins, 1975). 

Level C: This is a favorite for crossword addicts, and an incredibly 
versatile tool for personalized entertainment and education. 
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REM WORKS ON PET 2001-8, NEW PET/CBM, 

-, BASIC 4.0, AND CBM 8032 & 8016 

1 REM *** WORDS EARCH 

2 REM *** ORIGINAL PROGRAM 

3 REM *** (C) 1980 

4 REM *** LEN LINDSAY 

5 REM *** 04/18/80 

9 REM 

10 ZP=PEEK (50003) :IFZP>1THENZP=2: 

-.IFPEEK (34816 )<>32THENZP=3: 
-.REM SET PET TYPE 

11 REM ZP MEANS: 0=OLD, 1=NEW, 2=BASIC -. 

-.4.0, 3 = 80 COLUMN WITH BASIC 4.0 
15 POKE59468,12 
20 PRINT "fi "; 

30 X=RND(-TI) :REM SEED RND GENERATOR 
40 DEFFNR(X)=INT(RND(1)*X+1) :REM CHOSE -. 

-.RANDOM # FROM 1 TO X 

50 ZZ$=" 

-." :REM 40 DELETES 

51 IFZP=3THENZZ$=ZZ$+ZZ$:REM FOR 80 -. 

-.COLUMN SCREEN 

52 ZL$= n «««««" :REM 10 CURSOR LEFT 
54 ZS$=" 

11 : REM 40 SPACES 

96 XX$="fij:WILL YOU BE USING A PRINTER?": 

-,GOSUB10100:PRINT:IFXA$O"Y"THEN99 

97 XQ$= "PRINTER DEVICE #" :XP$ = "4" : 

-,GOSUB10200:PD=XA 

98 IFPD<30RPD>15THENPRINTZZ$; :GOT097 

99 IFRPTHENRETURN 

100 IFRN>0THEN2200:REM RESTART SKIP TO -. 

-.MENU 

101 REM 

102 PRINT "RWELCOME TO WORD SEARCH" 

110 PRINT"*I WILL HIDE WORDS YOU SUPPLY - 

-.INTO A" 
120 PRINT "fWORDSEARCH PUZZLE. I CAN -. 

-.ALSO GIVE YOU 
130 PRINT "^AN ANSWER KEY.^" 
145 REM 
150 AW=19 : REM PUZZLE WIDTH - FOR -. 

-.PRINTER MAY GO UP TO AW=39 
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152 AH=11 : REM PUZZLE HEIGTH- FOR -, 

-.PRINTER MAY GO UP TO AH=31 
190 DIMW$(AW f AH) :REM PUZZLE ARRAY 
200 XQ$="HOW MANY WORDS TO HIDE": 

-iXP$="9":GOSUB10200 
210 NW=XA:IFNW>990RNW<1THENPRINTZZ$; : 

-.GOTO200 
220 DIMS$(NW) :REM WORD ARRAY 
230 PRINT"fiWHAT IS THE TITLE OF THIS -. 

-.PUZZLE? ":GOSUB10200:TP$=XA$ 
235 REM 
400 PRINT"fiPUZZLE: jl";TP$: PRINT "RENTER -, 

-.YOUR WORDS NOW." 
404 PRINT "t ENTER £~r TO GO BACK AND -. 

iREDO A WORD. 
407 PRINT"^ENTER x\r TO END INPUT OF -i 

iWORDS EARLY. f" 
410 FORZ=lTONW 
420 :IFZ<1THENZ=1 
422 :PRINT"jl^ENTER WORD NUMBER_"+STR$ ( Z) 

-.+ "_PLEASE":GOSUB10200 
425 :IFXA$= n \ n ANDZ=lTHENPRINT"fij:YOU -, 

-.DON'T HAVE ANY WORDS YET" .-GOTO404 
430 :IFXA$= n ~"THENZ=Z-l:PRINT"BACK TO -i 

iREDO "+S$(Z) :GOTO420 
435 IFLEN(XA$) >AWANDLEN(XA$) >AHTHENPRINT 

VjlTHAT WORD IS TOO LONG" : PRINT: 

-.GOT0422 
440 :S$(Z)=XA$ 

450 :IFXA$="\"THENQ=Z-1:Z=NW:NW=Q 
455 :IFXA$="2"THENPRINTZZ$;:GOSUB10200: 

-.GOTO430 
460 NEXTZ 
470 PRINT"fiTHANK YOU - PLEASE WAIT -. 

-.WHILE I THINK" 
475 REM 
500 D=FNR(3) :GOSUB3310:REM INIT -. 

-.DIRECTION & PUZZLE ARRAY 
1000 FORCW=lTONW:REM PUT WORDS IN ARRAY 
1005 :PRINTCW; "OF";NW; "-"; 
1010 :CW$=S$(CW) :REM CURRENT WORD 
1020 :CL=LEN(CW$) :REM CURRENT WORD -. 

-.LENGTH 



200 LANGUAGE AND COUNTING SKILLS GAMES 

1030 :DF=0:REM DIRECTION FLAG 

1040 :DF=DF+1:REM INCREMENT DIRECTION -. 

iFLAG COUNTER 
1050 :IFDF>3THENPRINT"fi";CW$; "_WON'T -. 

-iFIT": PRINT "TRY i.Dr " :GOTO2220 
1060 :D=D+1:IFD>3THEND=1:REM CIRCULAR -. 

-.DIRECTION CHANGE 
1070 :DX=0:W=AW:IFD<3THENW=W-CL:DX=1: 

->IFW<0THEN1040:REM MOVE>> 
1080 : DY=0 : H=AH : IFD>1THENH=H-CL : DY=1 : 

-.IFH<0THEN1040:REM MOVEW 
1090 :PF=1:REM POINT FLAG l=RANDOM, 

-.2=ALL,3=DONE 

1999 :REM PICK START COORDINATE 

2000 :ONPFGOSUB5000,5100:IFPF>2THEN1040: 

-iREM TRY NEXT DIRECTION 
2010 :REM TEST 
2015 :TX=X:TY=Y:TF=0 
2020 :FORT=lTOCL 
2025 : :IFTY>AHORTX>AWTHENTF=l:T=CL: 

->GOTO2050:REM WORD PAST BORDER 
2030 ::IFW$(TX,TY)<>"-"THENTF=1:T=CL: 

-.REM SPOT IS OCCUPIED 
2040 : :TX=TX+DX:TY=TY+DY:REM UPDATE -. 

-.COORDINATE TO NEXT POINT IN WORD 
2050 : NEXTT: PRINT" *" ; 

2060 :IFTFTHENTF=0:GOTO2000:REM NO FIT 
2070 :REM ADD WORD 
2080 :B=FNR(2)-1:REM 0=WORD AS IS -. 

-.l=WORD BACKWARDS 
2090 :FORT=l+( (CL-1) *B)T01+( (CL-1) *(1-B) 

-.)STEP1-(2*B) 
2100 ::W$(X,Y)=MID$(CW$,T,1) 
2110 : : X=X+DX : Y= Y+DY 
2120 :NEXTT 

2130 : PRINT: PRINT "r.";CW$;"£ ";"_IS ADDED" 
2150 NEXTCW 
2155 REM 

2200 RN=l:PRINT"firOPTION MENU" 
2220 PRINT "ThtWrORD LIST" 
2230 PRINT'^xPrUZZLE" 

2240 PRINT "^iAfNSWER KEY" 

2241 PRINT"^(HIT iSPACEf TO CONTINUE -. 

-.AFTER THE ABOVE) " 
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2242 PRINT"*t OR" 

2243 PRINT "^xDflFFERENT PUZZLE-SAME -. 

-iWORDS" 

2244 PRINT"^£NrEW WORDS & PUZZLE" 

2245 PRINT "trErND" 

2250 XX$="*jLYOUR CHOICE?" :GOSUB10100 : 

-.PRINT 
2255 XM$="WPADNE" :GOSUB10300 :CH=XF: 

-.REM EDIT 
2260 ONCHGOSUB2270, 2270, 2270, 4700 ,3700, 

-.2900 
2265 GOTO2200 
2267 REM 
2270 DV=3:IFPDTHENXX$="fiPRINT TO -i 

-.iSrCREEN OR x.PrRINTER":GOSUB10100: 

-.PRINT 
2280 IFPD>0ANDXA$="P"THENDV=PD 
2310 PRINT"fi"; 
2320 OPENl,DV 
2325 IFDV>3THEN PRINT"PRINTING TO YOUR -. 

-.PRINTER" 
2330 ONCHGOSUB4500 ,3000 , 4000 :CLOSEl 
2335 IFDV=3THENGOSUB10130:REM FREEZE -. 

-.TILL KEY HIT 
2340 GOTO2200 
2345 REM 
2900 PRINT "fiTHAT WAS FUN - TRY IT AGAIN i 

--LATER.": END 
2905 REM 
3000 PRINT#1,LEFT$(ZS$, (2*AW-LEN (TP$) )/2 

-0+TP$:REM TITLE-PRINT PUZZLE 
3020 PRINT#1:REM BLANK 
3030 FORY=lTOAH 
3040 :FORX=lTOAW 
3050 : :IFW$(X,Y)="-"THENPRINT#1, 

-.CHR$(64+FNR(26)) ; :GOTO3070: 

-.REM RANDOM 
3060 : :PRINT#1,W$(X,Y) ; :REM CORRECT -. 

-.LETTER 
3070 : :PRINT#1,"_"; :REM SPACE AFTER -. 

-.LETTER 
3080 :NEXTX 

3090 :PRINT#1:REM CARRIAGE RETURN 
3100 :PRINT#1:REM BLANK 
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3110 NEXTY 

3130 RETURN 

3135 REM 

3310 F0RY=1T0AH 

3320 :F0RX=1T0AW 

3330 ::W$(X,Y)="- n 

3340 :NEXTX 

3350 NEXTY: RETURN 

3355 REM 

3645 REM 

3700 RUN 

3705 REM 

4000 PRINT#1,LEFT$(ZS$, (2*AW-LEN (TP$) )/2 

-i)+TP$:REM TITLE-ANSWER KEY 
4020 PRINT#1:REM BLANK 
4030 F0RY=1T0AH 
4040 :F0RX=1T0AW 

4050 : :PRINT#1,W$(X,Y) ; :REM PRINT LETTER 
4060 : :PRINT#1, "_"; :REM SPACE AFTER -. 

-iLETTER 
4070 :NEXTX 

4080 :PRINT#1:REM CARRIAGE RETURN 
4090 :PRINT#1:REM BLANK 
4100 NEXTY 
4120 RETURN 
4125 REM 
4500 PRINTtl, "HERE ARE THE WORDS I ' VE -. 

-iHIDDEN:" 
4520 FORZ=lTONW 

4530 :PRINT#1,S$(Z) :REM PRINT WORD 
4540 NEXTZ 
4560 RETURN 
4565 REM 
4700 XX$="fiSAME SIZE?":GOSUB10100: 

-,IFXA$="Y"THEN470 
4710 IFXA$<>"N"THEN4700 
4720 XQ$="fiHOW WIDE (10-19) " :GOSUB10200 : 

iIFXA<10ORXA>39THEN4720:REM -, 

iLINE150SETMA 
4722 AW=XA 
4730 XQ$= n fi*HOW HIGH (10-11) " :GOSUB10200 

-i: IFXA<10ORXA>31THEN4730 :REMLINE152 

-.SETMAX 
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4732 AH=XA 

4750 GOTO470 

5000 RC=RC+1:REM INCREMENT RND COUNTER-P 

-iICK RND START COORDINATE 
5020 IFRO9THENPF=2:FC=0:RC=0 .-RETURN: 

iREM ENOUGH RANDOM TRYS 
5030 X=FNR(W):REM X COORDINATE 
5040 Y=FNR(H):REM Y COORDINATE 
5050 RETURN 
5055 REM 
5100 FC=FC+1:IFFC>W*HTHENPF=3:REM TRY -i 

-.ALL POINTS, 3=NO ROOM 
5110 X=X+1 : IFX>WTHENX=1 : Y=Y+1 : IFY>HTHENY 

n=l: REM CIRCULAR NEXT SPOT 
5140 RETURN 
5145 REM 

10100 PRINTXX$; :REM GET ONE CHARACTER 
10130 GETXA$:IFXA$>""THEN10130:REM -. 

-tCLEAR BUFFER 
10140 GETXA$:IFXA$=""THEN10140 
10150 XA=VAL(XA$) 

10199 XX$= n ": RETURN 

10200 IFXP$= ,,,, THENXP$="2":REM SET -i 
-.DEFAULT PROMPT, INPUT WITH PROMPT 

10220 GETXA$:IFXA$O""THEN10220: 

-.REM CLEAR BUFFER 
10250 XB$=LEFT$(" "+XP$+ZL$,2*LEN(XP$) + 

-.4): REM SET UP FOR PROMPT 
10260 PRINTXQ$;XB$;:REM PRINT QUESTION -. 

i& PROPOSED ANSWER 
10270 INPUTXA$ 
10280 XA=VAL(XA$) 

10299 XP$= nn :XB$="":XQ$="":RETURN 

10300 XF=0:REM INITIALIZE FLAG, EDIT 1 -. 
-iCHARACTER 

10320 IFXM$= n,, THENXM$="YN":REM DEFAULT 
10330 FORXX=lTOLEN(XM$) 
10340 :IFXA$=MID$(XM$,XX,1)THENXF=XX 
10350 NEXT 

10399 XM$= n,, :XX=0: RETURN 
READY . 
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Recreations 



Bouncing Ball Track Ways 

by hen Lindsay 



Crisscross your screen with a trail made by your clever PET 
Computer! 

10 REM***BOUNCING BALL TRACK WAYS*** 

20 PRINT "fi"; : REM CLEAR SCREEN 

30 CL$="W_" : REM CLEAR PREVIOUS BALL 

32 R$="0_<" : REM MOVE BALL RIGHT 

34 L$="«Q<" : REM MOVE BALL LEFT 

36 U$="'NO_«" : REM MOVE BALL UP 

38 D$="i<Q.<" : REM MOVE BALL DOWN 

40 RD$="^Q_«" : REM MOVE BALL RIGHT DOWN 

42 LD$="t«Q.<" : REM MOVE BALL LEFT DOWN 

44 RU$= "?£:<" : REM MOVE BALL RIGHT UP 

46 LU$= ,, T«£<" : REM MOVE BALL LEFT UP 

100 MB$=D$ : NB=24 : GOSUB 1000 

110 MB$=R$ : NB=24 : GOSUB 1000 

120 MB$=LU$: NB=24 : GOSUB 1000 

130 MB$=R$ : NB=24 : GOSUB 1000 

140 MB$=LD$: NB=24 : GOSUB 1000 

150 MB$=U$ : NB=24 : GOSUB 1000 

160 F=l-F 

170 CL$=" " : IF F THEN CL$="W." 

180 GOTO100 

205 



206 RECREATIONS 

999 END : REM SUBROUTINE FOLLOWS 

1000 FOR X=l TO NB : REM NUMBER OF -. 

-■BALLS TO PRINT 
1010 : PRINT CL$; : REM CLEAR PRESENT -. 

-.BALL 
1020 : PRINT MB$; : REM MOVE BALL 
1030 NEXT X : REM DO NEXT BALL 
1040 RETURN : REM GO BACK FOR NEXT TRACK 
READY . 



Hypername 
Nameblinker 
Namerunner 

by hen Lindsay 



See what PET can do with your name (or anyone else's, for that 
matter). Just type the lucky person's name into the program and 
watch PET go. All three listings are a variation on the theme of 
"what's in a name." In this case, it's how many things you can make 
a name do on your screen. 

REM *** HYPER NAME *** 

1 REM (C) LEN LINDSAY 1980 

9 zD$=H^ThhhWThhhhhhhhhhHMThhr' : 

-i REM 24 DOWN 

10 INPUT"fiWHAT IS YOUR NAME";N$ 
90 R=INT(RND(0)*25)+1 

100 PRINT "fi" ; 

110 GOSUB 500 : REM PAUSE 

120 IF R>1THEN PRINT LEFT$ ( ZD$,R-1) ; 

130 PRINT N$; 

140 GOSUB 500 : REM PAUSE 

16 GOTO90 

500 D=10 : REM DELAY FACTOR - THE -. 

-.SMALLER THE NUMBER, THE SHORTER -. 

-.THE DELAY 
510 FOR Z=l TO D : NEXT Z 
520 RETURN 
READY. 



REM *** NAME BLINKER *** 

1 REM (C) LEN LINDSAY 1980 

9 zD$=H^HMThWThhhWThhhhhhhhW n : 

-i REM 24 DOWN 

10 INPUT"fiWHAT IS YOUR NAME";N$ 

20 INPUT"fi\WWHAT ROW SHOULD I BLINK 
-.YOUR NAME";R$ 
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30 R=VAL(R$) 

40 IFR<1 OR R>25 THEN 20 

100 PRINT "fi" ; 

110 GOSUB 500 : REM PAUSE 

120 IF R>1THEN PRINT LEFT$ ( ZD$ ,R-1 ) ; 

125 PRINT"!."; : REM REVERSE ON 

130 PRINT N$; 

140 GOSUB 500 : REM PAUSE 

150 GOTO100 

500 D=100 : REM DELAY FACTOR - THE ^ 

-.SMALLER THE NUMBER, THE SHORTER 

-.THE DELAY 
510 FOR Z=l TO D : NEXT Z 
520 RETURN 
READY. 



REM *** NAME RUNNER *** 

1 REM (C) LEN LINDSAY 1980 

-. REM 24 DOWN 
10 INPUT "fiWHAT IS YOUR NAME";N$ 
90 FOR R =1 TO 25 
100 PRINT "fi "; 
110 GOSUB 500 : REM PAUSE 
120 IF R>1THEN PRINT LEFT$ ( ZD$,R-1) ; 
130 PRINT N$; 
140 GOSUB 500 : REM PAUSE 
150 NEXT R 
160 GOTO90 
500 D=10 : REM DELAY FACTOR - THE -. 

-.SMALLER THE NUMBER, THE SHORTER 

-.THE DELAY 
510 FOR Z=l TO D : NEXT Z 
520 RETURN 
READY . 



Happy Birthday 

by Len Lindsay 



This little listing greets important people on their big day. It 
won't take you much ingenuity to make the computer say "Happy 
Birthday" to whomever you want to felicitate. 

REM ***HAPPY BIRTHDAY*** 

1 REM (C) 1980 LEN LINDSAY 

10 PRINT "fi"; : REM CLEAR SCREEN 
100 GOSUB 20300 : REM DRAW BORDER 
110 PRINT B JiWWW" : REM SET UP FOR -i 

-iMESSAGES 
120 M$="HAPPY" : GOSUB1000 
140 M$="BIRTHDAY" : GOSUB 1000 
160 M$="MOTHER" : GOSUB 1000 
200 GOTO200 : REM HOLD THE ACTION 

999 END 

1000 PRINT TAB(20-LEN(M$)/2) ;M$ : 

-i REM CENTER WORD 
1099 RETURN 
20300 IF LEN(XX$)<>1 THEN XX$='V : 

-. REM DEFAULT BORDER CHARACTER - -i 

-iBORDER 
20312 XW=40 : XH=24 : REM DIMENSIONS 
20320 PR INT "h"; :REM CURSOR TO TOP 
20330 FORXA=lTOXW 
20335 :PRINTXX$; : REM TOP LINE 
20340 NEXTXA 
20345 FORXA=lTOXH-l 

20350 :PRINT"-^";XX$; : REM RIGHT SIDE 
20355 NEXTXA 
20360 PRINT B h» ";: REM PUTS CURSOR ONE -. 

-iSPOT RIGHT OF STARTING CORNER 
20365 FORXA=lTOXH-l 

20370 : PRINT "*$"; XX $; : REM LEFT SIDE 
20375 NEXTXA 
20380 FORXA=lTOXW-l 

20385 :PRINTXX$; : REM BOTTOM LINE 
20390 NEXTXA 

20395 PRINT"ii"; :REM HOME CURSOR 
20399 RETURN 
READY. 
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Starfill 

by Len Lindsay 



Fill your screen with stars and watch them twinkle in the night. 
Starlight, starbright, I wish the wish I wish tonight .... 



REM *** STAR FIL l *** 

1 REM (C) 1980 LEN LINDSAY 

10 PR I NT "ft"; : REM CLEAR SCREEN 

100 A=INT(RND(1)*1000)+1 : REM RANDOM 

-.SPOT 
110 POKE 32768+A f ASC( ,, * n ) : REM STAR - 

-.ADDER 
120 GET A$ : IF A$= ,in THEN 100 : 

-. REM NO KEY HIT 
130 GET A$ : IF A$= ,MI THEN 130 : 

-i REM WAIT TILL KEY HIT AGAIN 
140 GOTO 100 
READY. 



REM ***STARFILL/ERASE*** 

1 REM (C) 1980 LEN LINDSAY 

10 PRINT "R"; : REM CLEAR SCREEN 

100 A=INT(RND(1)*1000)+1 : REM RANDOM 

-.SPOT 
110 POKE 32768+A f ASC( ,, * ,I ) : REM STAR - 

-.ADDER 
115 POKE 32768+1000-A,ASC(" ") 

-. REM STAR ERASER 
120 GET A$ : IF A$="" THEN 100 

-. REM NO KEY HIT 
130 GET A$ : IF A$="" THEN 130 

-. REM WAIT TILL KEY HIT AGAIN 
140 GOTO 100 
READY . 
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Marblestat 

by Mac Oglesby 



THIS PROGRAM SIMULATES A PROBABILITY 
MACHINE. WHILE THE MACHINE IS RUNNING 
VOU MAV USE THESE CONTROLS: 

F = MARBLE DROPS FASTER 

S = MARBLE DROPS SLOWER 

B = DISPLAY BAR GRAPH 

I = THESE INSTRUCTIONS 
TO CONTINUE AFTER THESE INSTRUCTIONS 
OR AFTER THE BAR GRAPH DISPLAY, PRESS- 
RETURN. 



Welcome to the probability machine! Research math and sci- 
ence laboratories (not to mention science museums) frequently have 
one of these creatures. Mac enables you to have one of your own, at 
home on your PET computer. Toss a marble into this simple ma- 
chine. What's the probability that it will fall to the left or to the 
right? If you toss in a whole bunch, one after another, what's the 
probability that an equal number of marbles will land in each bin? 

The marble hits the peg and goes either to the left or right 
compartment. 

On a slightly more complicated machine, divided into four col- 
lecting bins, learned degree-holders after prolonged scientific marble- 
tossing have determined that the probabilities for each bin are: 

1/8 3/8 3/8 1/8 

Mac's Marblestat lets you select the size of your probability ma- 
chine—from two to nineteen bins! Simply type in the number you 
want when PET asks you to, and press RETURN. The marbles start 
falling. 
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N = 199 
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Now, press the B key. PET will show you a bar graph of the 
current distribution of marbles in compartments. Here's an example: 



N = 561 
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Press RETURN, and the marbles continue to fall to their chosen 
destination. If you go for nineteen compartments and leave PET on 
all night, some compartment will eventually collect 999 marbles. 
Then the machine stops and displays the final bar graph for you. 

You can never lose your marbles with this program! 



N 
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100 REM NAME: MARBLESTAT 

110 REM (C) MAC OGLESBY 7/22/78 

120 REM 

130 REM THIS SIMULATION OF A PROBABIL- 

140 REM ITY MACHINE IS COPYRIGHT 1978 

150 REM BY MAC OGLESBY. PERMISSION IS 

160 REM GRANTED FOR USE, BUT NOT FOR 

170 REM SALE. 

180 REM 

190 REM 

1000 REM *** INITIALIZATION 

1010 DIM T(19) 

1100 Z9=40: REM SET INITIAL SPEED 

1110 D?="^iHHHtHttlHtt" 

1120 R$= "»»»»»»»>»»»»»»»» 

1150 GOSUB 3000 

1200 PRINT "fi"; 

1210 PRINT "BEFORE THE MACHINE STARTS -. 

-.YOU MUST" 

IO O ft nn v»"Tm 

1230 PRINT "DECIDE HOW MANY BOTTOM -. 

-.COMPARTMENTS " 
1235 PRINT 
1240 PRINT "THERE WILL BE. PLEASE TYPE - 

-.ANY" 
1245 PRINT 

1250 PRINT "WHOLE NUMBER FROM 2 TO 19"; 
1260 INPUT BN 

1270 IF BNOINT(BN) THEN 1245 
1280 IF (19-BN)*(BN-2)<0 THEN 1245 
1800 GOSUB 8000 
2000 REM *** DROP A MARBLE 
2010 N=N+1 
2020 PRINT "hN =";N 
2100 PRINT "Ji";LEFT$(R$ f 19) ;"Q_"; 
2110 T=10 

2130 FOR J=l TO 21-BN 
2140 : GOSUB 5000 
2200 : PRINT "< $<Q" ; 
2210 NEXT J 
2300 Rl=l 
2310 FOR J=l TO BN-1 
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2320 
2330 
2340 
2350 
2360 
2365 
2370 
2380 
2390 
2400 
2410 
2500 

2510 
2520 

2530 

2540 

2550 
3000 
3100 
3110 

3120 
3130 

3135 
3140 

3145 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 



: IF RND(1)<.5 THEN Rl=-Rl 

: GOSUB 5000 

: PRINT "< <$"; 

: IF RK0 THEN PRINT "« n ; 

: PRINT "»0_"; 

: T=T+Rl/2 

NEXT J 

GOSUB 5000 

PRINT "< " 

T=INT(T) : T(T)=T(T)+1 

IF T(T)=999 THEN GOSUB 6000: END 

GET Z$: IF Z$="" THEN GOSUB 9000: 

-. GOTO 2000 
IF Z$="F" THEN Z9=Z9*.8: GOSUB 9000 
IF Z$="S" THEN Z9=Z9*1.25: GOSUB -. 

-.9000 
IF Z$="I" THEN GOSUB 3000: GOSUB -. 

-.8000 
IF Z$="B" THEN GOSUB 6000: GOSUB -. 

-.8000 
GOTO 2000 

REM *** INSTRUCTIONS 
PRINT "fi"; 
PRINT " MARBLESTA-. 

-iT" 
PRINT : PRINT : PRINT 
PRINT "THIS PROGRAM SIMULATES A -i 

-.PROBABILITY" 
PRINT 
PRINT "MACHINE. WHILE THE MACHINE ■ 

-.IS RUNNING" 
PRINT 

PRINT "YOU MAY USE THESE CONTROLS:" 
PRINT 

PRINT " F = MARBLE DROPS FASTER" 
PRINT 
PRINT " 
PRINT 
PRINT " 
PRINT 
PRINT " 
PRINT 



S = MARBLE DROPS SLOWER" 
B = DISPLAY BAR GRAPH" 
I = THESE INSTRUCTIONS" 
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3250 PRINT "TO CONTINUE AFTER THESE 

-•INSTRUCTIONS" 

3255 PRINT 

3260 PRINT "OR AFTER THE BAR GRAPH -, 

-iDISPLAY, PRESS" 

3270 PRINT 

3280 PRINT "RETURN." 

3500 GET Z$: IF Z$="" THEN 3500 

3510 IF ASC(Z$)=13 THEN RETURN 

3520 GOTO 3500 

5000 REM *** DELAY 

5100 FOR Jl=l TO Z9: NEXT Jl 

5200 RETURN 

6000 REM *** BAR GRAPH 

6100 PRINT "fi"; 

6190 B1=0 

6200 FOR J=l TO 19 

6210 : IF T(J)>B1 THEN Bl=T(J) 

6220 NEXT J 

6230 B1=20/B1: IF B1>1 THEN Bl=l 

6240 FOR J=l TO 19 

6250 : IF T(J)=0 THEN 6300 

6255 : PRINT "ii";D$;LEFT$ (R$, 2*J-1 ) ; 

6257 : IF BN/2=INT(BN/2) THEN PRINT 

6260 : FOR K=l TO INT(T( J) *Bl+.5) 

6270 : : PRINT "&!<"; 

6280 : NEXT K 

6300 NEXT J 

6400 FOR T=l TO 19 

6410 : GOSUB 9000 

6420 NEXT T 

6500 PRINT "JiN =";N 

6900 GET Z$: IF Z$="" THEN 6900 

6910 IF ASC(Z$)=13 THEN RETURN 

6920 GOTO 6900 

8000 REM *** PRINT STAT DEVICE 

8100 PRINT "fi"; 

8230 Dl$=" 

8240 D2$="l 1" 

8250 Hl$=". " 

8260 FOR J=l TO 21-BN 

8270 : PRINT Dl$;D2$ 

8275 NEXT J 
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8280 PRINT Dl$;"«0=. -." 

8290 IF BN=2 THEN 8382 

8300 FOR J=l TO BN-2 

8310 : IF J=17 THEN 8360 

8320 : PRINT LEFT$ (Dl$,17-J) ; 

8360 : PRINT "0= "+Hl$+ ,, ^ J ." 

8370 : Hl$=". "+H1$ 

83 80 NEXT J 

8382 IF BN=19 THEN 8390 

8385 PRINT LEFT$ (Dl$, 19-BN) ; 

8390 PRINT "1 "+H1$+"1" 

8500 FOR J=l TO 3 

8505 : IF BN=19 THEN 8520 

8510 : PRINT LEFT$ (Dl$,19-BN) ; 

8520 : FOR K=l TO BN 

8530 : : PRINT "1 "; 

8540 : NEXT K 

8600 : PRINT "1" 

8620 NEXT J 

8700 FOR T=l TO 19 

8710 : GOSUB 9000 

8720 NEXT T 

8800 RETURN 

9000 REM *** PRINT FREQUENCIES 

9100 X=T(T): IF X=0 THEN RETURN 

9110 N1=INT(X/100) : X=X-100*N1 

9120 N2=INT(X/10) : X=X-10*N2 

9200 PRINT "Jl"^;''^*"; 

9205 IF BN/2=INT(BN/2) THEN PRINT " " ; 

9210 PRINT LEFT$(R$,2*T-1) ; 

9220 IF N1=0 THEN PRINT " ";: GOTO 9300 

9230 PRINT RIGHT$(STR$(N1) ,1); 

9300 PRINT n <i m t 

9310 IF N1=0 AND N2=0 THEN PRINT " " ; : 

-i GOTO 9350 
9320 PRINT RIGHT$(STR$(N2) ,1); 
9350 PRINT "<+"; 
9400 PRINT RIGHT$(STR$(X) ,1) 
9500 RETURN 
READY . 



Petsketch 

by Len Lindsay 



This program emblazons "PET" in big, bold psychedelic letters 
on your computer screen. Hit any key to change the trail. Be adven- 
turesome and press: 



Keep the ball rolling with your PET computer! 
218 
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220 RECREATIONS 



iri fei 



REM*** WORKS ON ORIGINAL PET 2001-8, 

-. NEW PET/CBM, BASIC 4.0, & CBM -. 
-,8016 & 8032 

1 REM***PET SKETCH - INTERACTIVE -. 

-.GRAPHIC RUNNER 

2 REM***ORIGINAL PROGRAM BY LEN LINDSAY 

3 REM***(C) 1980 

4 REM***01-16-80 

5 REM***QUICK INSTRUCTIONS ARE PART OF -. 

-.THE STARTING SCREEN 

6 REM***THEY DISAPPEAR WHEN YOU SEEM TO -. 

-.BE CATCHING ON (EXCEPT ON CBM -. 
->8032& 8016) 

7 REM***FEEL FREE TO HIT -ANY- KEY -. 

-.(EXCEPT STOP) 

8 REM***HIT STOP TO STOP, OTHER KEYS -. 

-.HAVE VARIOUS EFFECTS 

9 REM*** 

15 POKE 59468,12 : REM GRAPHIC MODE 
20 PRINT"fi n ; : REM CLEAR SCREEN 
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30 PC$="W_ n :CL$=PC$:REM STARTING TRAIL 



32 R$="0« n : 
34 L$= n «Q.<" 
36 U$="'MO« ,, 
38 D$="*«£K" 
40 RD$="*0_«" 
42 LD$= n i«Q.<" 
44 RU$="T£«" : 
46 LU$= n T«K£«" 



REM MOVE BALL RIGHT 
REM MOVE BALL LEFT 
REM MOVE BALL UP 
REM MOVE BALL DOWN 
REM MOVE BALL RIGHT DOWN 
: REM MOVE BALL LEFT DOWN 
REM MOVE BALL RIGHT UP 
: REM MOVE BALL LEFT UP 
50 GOSUB3000:REM PRINT SHORT NOTES 

98 PRINT"]!"; :REM HOME CURSOR 

99 REM START WITH THE LETTER P 



100 


MB$=D$ 


J 


NB=23 


• GOSUB 


1000 




110 


MB$=R$ 


J 


NB=2 


: GOSUB 


1000 




120 


MB$=U$ 


; 


NB=12 


: GOSUB 


1000 




130 


MB$=R$ 


• 
• 


NB=9 


GOSUB 


1000 




140 


MB$=U$ 


• 
• 


NB=11 


: GOSUB 


1000 




150 


MB$=L$ 


: 


NB=11 


: GOSUB 


1000 




160 


MB$=D$ 


• 


NB=2 


• GOSUB 


1000 




170 


MB$=R$ 


• 
• 


NB=9 


: GOSUB 


1000 




180 


MB$=D$ 


• 


NB=7 


: GOSUB 


1000 




190 


MB$=L$ 


: 


NB=7 


: GOSUB 


1000 




200 


MB$=U$ 


: 


NB=11 


: GOSUB 


1000 




210 


REM THE 


i 


LETTER ] 


? IS DONE - DO THE 


E 




-.NEX1 


i 










220 


MB$=R$ 


J 


NB=12 


: GOSUB 


1000 




230 


MB$=D$ 


: 


NB=23 


: GOSUB 


1000 




240 


MB$=R$ 


• 
• 


NB=10 


: GOSUB 


1000 




250 


MB$=U$ 


: 


NB=2 


: GOSUB 


1000 




260 


MB$=L$ 


• 
• 


NB=8 


: GOSUB 


1000 




270 


MB$=U$ 


: 


NB=10 


: GOSUB 


1000 




280 


MB$=R$ 


: 


NB=7 


: GOSUB 


1000 




290 


MB$=U$ 


: 


NB=2 


• GOSUB 


1000 




300 


MB$=L$ 


■ 


NB=7 


• GOSUB 


1000 




310 


MB$=U$ 


• 
• 


NB=7 : 


GOSUB 


1000 




320 


MB$=R$ 


• 


NB=8 : 


GOSUB 


1000 




330 


MB$=U$ 


: 


NB=2 : 


GOSUB 


1000 




340 


MB$=L$ 


: 


NB=9 : 


GOSUB 


1000 




350 


REM THE 




E IS DOl 


JE - DO 


THE T NEXT 




360 


MB$=R$ 


• 


NB=12 • 


GOSUB 


1000 




370 


MB$=D$ 


• 


NB=2 . 


GOSUB 


1000 




380 


MB$=R$ 


; 


NB=4 . 


GOSUB 


1000 




390 


MB$=D$ 


• 


NB=21 


GOSUB 


1000 
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400 


MB$=R$ : NB=2 : GOSUB 1000 


410 


MB$=U$ : NB=21 : GOSUB 1000 


420 


MB$=R$ : NB=5 : GOSUB 1000 


430 


MB$=U$ : NB=2 : GOSUB 1000 


440 


REM THE T IS DONE NOW GO BA 



-.THE START 
450 MB$=L$ : NB=38 : GOSUB 1000 
920 GOTO 100 : REM DO IT AGAIN 

999 END : REM SUBROUTINE FOLLOWS 

1000 FOR X=l TO NB : REM NUMBER OF -. 

-.BALLS TO PRINT 
1005 GETCH$sIFCH$>""THENGOSUB2000 
1010 : PRINT CL$; : REM CLEAR PRESENT -. 

-.BALL 
1020 : PRINT MB$; : REM MOVE BALL 
1030 NEXT X : REM DO NEXT BALL 
1040 RETURN : REM GO BACK FOR NEXT TRACK 
2000 IFCH$="x"THENRV$="x":CL$=RV$+PC$: 

-.GOSUB5 000: RETURN 
2010 IFCH$="r"THENRV$="r":CL$=RV$+PC$: 

-.RETURN 
2020 IFCH$="Ji"ORCH$="fi ,, ORCH$="^"ORCH$="T 

-."ORCH$=">"ORCH$="^"ORCH$=JL"THENRE 

-.TURN 
2030 IFCH$=CHR$(20)ORCH$=CHR$(13)ORCH$=C 

iHR$(141)ORCH$=CHR$(34) THEN RETURN 
2040 PC$=CH$ 
2050 CL$=RV$+PC$ 
2060 IFFL=0THENGOSUB4000:FL=1 
2099 RETURN 
3000 PRINT "JaThhhhhhhhhWW ;: REM START "" 

-.LINE 
3010 PRINTTAB(5) ; "HIT ANY" ; TAB (18) ; "TRY -. 

-.I.SPACE" 
3020 PRINTTAB(5) ; "KEY TO" 
3030 PRINTTAB(5) ; "CHANGE"; TAB (18) ; "TRY -. 

-.JLRVS" 
3040 PRINTTAB(5) ;" THE" 
3050 PRINTTAB(5) ;"TRAIL" ;TAB(18) ; "TRY -. 

-.iOFF " 
3099 RETURN 
4000 PS=32768+525:GOTO5010 
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5000 PS=32768+538 
5010 FORX1=0TO4 
5020 FORX2=0TO8 
5030 POKEPS+X2+40*Xl,32 
5040 NEXT 
5050 NEXT 
5099 RETURN 
READY. 



Special Guest Lectures 



These lectures are designed for computer Phreques! They are 
extracurricular activities. So, if you're not a purist, skip on to the fun 
and games; but if you're curious, let Dr. Wacko guide you on a fasci- 
nating tour through your PET's inner self. 

CURRICULUM 

Lecture 1: INTRODUCTION AND "THE REPEATING GIZIT" OR 
"WHY IS MY COMPUTER STUTTERING?" 

Course Synopsis-. In this lecture, Dr. Wacko shows you a "zippy" 
program that POKEs around in your PET's brain, causing it to stutter. 

Lecture 2: "THE MYSTERIOUS DISAPPEARING CURSOR" AND 
"THE EVAPORATING QUESTION MARK" 

Course Synopsis-. Dr. Wacko puts on his black cape and beanie 
to teach you some computer magic. First you'll wonder where the 
cursor went. Next you'll be astounded when Dr. Wacko "evaporates" 
the question mark right before your very eyes. 

Lecture 3: "IT'S GETTING NOISY AROUND HERE" 

Course Synopsis-. Did you know that your PET can make 
sounds? Let Dr. Wacko teach you the secret. 

Lecture 4: "LOOP-DE-LOOP" 

Ride the LOOP-DE-LOOP with Dr. Wacko and learn how much 
fun it is to go around in circles. 

Lecture 5: "I DIDN'T KNOW THERE WERE SO MANY ERRORS" 

Course Synopsis-. Virtually every error imaginable is covered in 
this comprehensive lecture. Dr. Wacko outdoes himself when he re- 
veals his much touted ERROROONIE PROGRAM. 
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Lecture 1 
Introduction 



Let me introduce myself. I am the famous Dr. C. Wacko, the 
world's foremost Professor of "Computerology." If you aren't ac- 
quainted with my course, let me spend a few minutes telling you 
some of the wondrous and exciting things we'll be covering. 

By the way, if any of you don't feel up to my lectures, don't be 
ashamed— just hold your PET up in one hand and you'll be excused 
to play games or whatever you'd like. I know that you'll be missing a 
lot by not attending these informative lectures, but the fact that I get 
paid as a direct ratio of attendance should have absolutely no bearing 
whatsoever on your decision. The dedicated souls who finish this 
short course will receive the honorary degree of C.W.S. (Computer 
Wacko Science). You'll have learned how to POKE around inside 
your PET's brain and perform feats of legerdemain. You will become 
intimately acquainted with your computer. 

Now that we've gotten that out of the way, let's dive right into 
the material and not waste a minute more. 

The Repeating Gizit 

To begin with, I am going to teach you one of my smaller brain- 
childs. By entering just two lines— yes, you heard me correctly, just 
two lines of programming— your PET will get so confused that when 
you hold a key down, the characters you enter will virtually zip 
across the screen, repeating themselves over and over again until you 
lift your finger. 

First, let me give you my secret formula. 

For those of you with the "new" PET, enter this: 

NEW PET: 

10 GETA$ : IFA$="" THEN 10 

20 PRINT A$; : POKE 151, 255 : GOTO 10 

If you've got the "older" PET, enter this: 

OLD PET: 

10 GETA$ : IF A$=" " THEN 10 

20 PRINT A$; : POKE 515, 255 •. GOTO 10 

If you don't know what vintage you have, try both programs. 
226 
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POKing Around 

Before we run this program, I'd like you all to notice the word 
POKE in the above listings. What we are doing here is actually poking 
around inside your PET's brain, talking to its subconscious, so to 
speak. We are bypassing the PET's BASIC language and communicat- 
ing directly with the machine language that keeps your PET from go- 
ing as wacko as the rest of us. By uttering POKE, you make your 
PET fall into a deep hypnotic trance and do all sorts of unusual 
things for us. 

Why Is My Computer Stuttering? 

Now, let's RUN this zippy program. After you type in RUN and 
hit RETURN, type in anything you'd like. See, it works! 

Every time you hold down a key, that letter will repeat itself 
until you lift your finger! 

When I first tried this experiment, I typed in: "THE GREAT 
DR. C. WACKO PHD" (I like to see my name in lights). And this is 
what happened 

RUN 

TTTHHHHHEEEE GRRREEAAAATTD DDRR.. 

CCCCCCC. WWWWACCCCKKOOO PPPHHHDDD 

Actually, class, we have our PET so confused that it's stuttering! 

At first I was worried that I was POKing around with my PET 
too much, so I devised another clever program that will accomplish 
the same zippy result without POKing around. 

Are you taking notes? O.K., I see you've got your PET in front 
of you now, so here's the program. It is so versatile it will work with 
either the new or older model PETs. 

NEW AND OLD PETS: 

10 GET A$ ■. IF A$=" " THEN 10 

20 PRINT A$; : GET B$ : IF B$=" " THEN 20 

30 A$=B$ : GOTO 20 

Be careful. Don't put any space between the quotation marks. 

As you can see, this program is a little longer but accomplishes 
the same result as the first program without POKing around in your 
PET's brain. 



Lecture 2 
The Mysterious Disappearing Cursor 



To lighten things up, let's try a little computer magic. Abraca- 
dabra—we'll make the cursor disappear. Yes, you've guessed it, the 
name of this feat of legerdemain is The Mysterious Disappearing Cur- 
sor. 

Before I wrap a turban around my head and bring out my magic 
wand, I'd like to show you how our PET normally responds to an 
INPUT command. During this brief illustration, please keep your 
eyes on the blinking cursor, and remember— I have absolutely noth- 
ing up my sleeve! 

First, prepare your PET to ask for your name with this INPUT 
Statement: 

10INPUT "WHAT IS YOUR NAME"; N$ 

Now that your PET is properly primed, RUN this short pro- 
gram. Look at that! Your PET asks WHAT IS YOUR NAME?, and 
the cursor is winking and blinking merrily away. All is well in Com- 
puterland. Answer your PET by typing in your name. 

Before we perform our magic trick of making the cursor dis- 
appear, let's see how smart your PET is. Let's check to see if it still 
remembers the name you entered. To ask it, just enter: 

PRINT N$ 

and Hit RETURN 

See, your PET is smarter than you thought and will respond by 
printing the name exactly as you previously entered it. (If it didn't, 
your PET isn't smart enough to understand this trick. I take no re- 
sponsibility whatsoever!) 

Here comes the moment you've all been waiting for. Watch what 
I do and follow my lead. Prepare the PET by entering the command: 

NEW 

and Hit RETURN 

Now that we've cleared our PET's memory and it has responded 
with the word READY, we are ready to proceed. Watch closely as I 
enter these commands. Do exactly as I do, and the cursor will magi- 
cally disappear. 
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For those of you with the new PET, enter this: 

10 POKE 168, : INPUT "NAME"; A$ 

20 PRINT A$ 

If you've got the older PET, enter this: 

10 POKE 549, : INPUT "NAME"; A$ 
20 PRINT A$ 

As you will notice, class, we are again POKing around in our 
PET's mind. 

All set? All right, RUN the program. Does your screen look like 
this? 

RUN 

NAME? GEORGE 

GEORGE 

READY. 

If it does, then you've proceeded correctly, and amazingly 
enough the blinking cursor has MYSTERIOUSLY DISAPPEARED. 
Why not finish the trick by answering your PET? Just type your 
name and see what happens. I'll put in my name as an example. 

RUN 

NAME? DR. C. WACKO 

DR. C. WACKO 

Try replacing the in this program with some other number, 
just to see the result. Since "0" made the cursor temporarily dis- 
appear, see what happens when you replace it with, say, 255 or 128. 
They both work! (Would I kid you?) Now, before your very eyes, I 
will make the blinking cursor return. I'll just replace the with the 
number 10 and RUN the program. Unbelievable! The cursor has re- 
turned from the mystical void. 

So much for the MYSTERIOUS DISAPPEARING CURSOR. 
Now, onto our next bit of sleight-of-hand: THE EVAPORATING 
QUESTION MARK. 
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That's right, class. I will eliminate the question mark that our 
PET has so thoughtfully included. We'll just POKE around in its 
brain once more. Watch carefully as I program my PET and do as I 
do. 

With the new PET, enter this: 



10 INPUT "NAME"; A$ : PRINT A$ 

20 POKE 14, 1 : INPUT "NAME"; B$ : PRINT B$ 

30 PRINT A$ : PRINT B$ 

If you have the older PET, enter this: 

10 INPUT "NAME"; A$ : PRINT A$ 

20 POKE 3,1 : INPUT "NAME"; B$ : PRINT B$ 

30 PRINT A$ : PRINT B$ 

All set? Before we get carried away, let me explain each line of 
this fantastic program. Line 10 is a standard INPUT and your answer 
will be printed on the screen. Line 20 is the same INPUT and PRINT 
as in Line 10. However, we have preceded Line 20 with one POKE 
statement. Line 30 simply PRINTS both names INPUT in Lines 10 
and 20. Now that we're ready, let's try a few RUNs of this glorious 
program. Here's what I saw on the screen of my PET: 

RUN 

NAME? DR. 

DR. 

NAMEC. WACKO C. WACKO 

DR. 

C. WACKO 

READY 

If you watched closely, after I input my first name, "DR.", my 
PET printed it on the screen after the question and on the next 
screen line. It then asked me to enter my NAME again, but this time, 
since I've POKEd around in its brain, it forgot to add a question 
mark. Amazing! 
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Playing Tricks on Your PET 

Now that we have successfully evaporated the question mark, 
let's fool around with this program and really try to confuse our 
poor little PET. Try another RUN, but this time don't type any 
answer to the question— just hit RETURN. 

Uh-oh! That stopped the program! I think we've upset the poor 
little fellow. He gets very angry when we refuse to answer his ques- 
tions. So angry, in fact, that he interrupted our program at that point. 

One last interesting experiment with this program before we 
move on. RUN the program once again, and this time answer the first 
question but just hit RETURN for the second question. Ah hah! 
Now you can't break out of the program by refusing to answer. 

Why does this happen, you may ask? Elementary, my dear 
class— your INPUT was preceded by a special POKE. I suppose we've 
gotten our just desserts. Playing around with our PET's subconscious 
produces some interesting results, but we have to be careful not to 
let things get out of control! 



Lecture 3 
"It's Getting Noisy Around Here" 



Clickety, click, click, click. 

Do you hear that click coming from my PET? If you put your 
ear next to the tape unit, you would be able to make out a faint 
clicking noise. Music to my ears! Would you like your PET to pro- 
duce this noise? You would? O.K., I'll show you, but BEWARE— 
what we'll be doing is cycling the switch that controls your software 
tape units, and if we do this too much we'll be straining the poor 
little critter. Here goes. Just enter this program and RUN it: 

WARNING! OLD AND NEW PETS: 

DANGEROUS TO 10T=TI 

PET'S HEALTH! 20 POKE 59411, 53 -. POKE 59411,61 

(MORE THAN ONCE 30 IF ™ T + 1® THEN ™ 

OR TWICE WILL 40 GOTO 10 
BURN OUT THE 
RELAY!) 

You don't hear anything? Turn off your stereo, the blender in 
the kitchen, and the TV; quiet down your parakeets and tropical 
fish; and listen attentively with your ear on the tape unit. Eureka! 
It works! Clickety, click, click .... 

Before we move on to more serious matters, those of you who 
are using the new PET are about to discover that your system has a 
joke built into it. To get a real laugh, just enter the following com- 
mand, hit RETURN, and you'll see the punch line: 

WAIT 6502, 4 

RETURN 

You don't get it? Let me give you a little clue. The company 
that wrote the BASIC interpreter for your PET is MICROSOFT. 
Now it should all be crystal clear. By the way, in place of the 4, you 
may enter any number from 1 to 255 to get a similar result. Why not 
give it another try? 

WAIT 6502, 20 
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Lecture 4 
"The Astounding Loop-de-Loop Program" 

OR 
"What's That Blinking Cursor Doing Here?" 



Get ready for another of my patented "Wacko" experiments. 
Today, we are going to delve into your PET's subconscious again, 
and POKE around a little. In my last lecture, I showed you how to 
remove the automatically added question mark, and before that, I 
baffled you with the "Disappearing Cursor." Now we're going to 
trick your PET into blinking a cursor when it usually doesn't. 

A little background first. Your PET can be programmed to ask 
for information without having to use the INPUT statement. An 
appropriately named GET may be used instead. In this experiment, 
we'll have the GET attempt to get one character from the keyboard 
input. When programmed this way your PET normally will look for 
an input, and if it doesn't see that any key has been hit, it will simply 
forget about it and go on to the next statement. A GET doesn't wait 
for you, like an INPUT does— it's a little impatient. 

I, the dubious Dr. Wacko, have a solution for this of course. 
I'll just add a command immediately after the GET to check if a 
character has been entered. If it hasn't, your PET will go back and 
try again. This loop will continue until you hit a key. I'll write my 
astounding loop-de-loop program on the blackboard so you can all 
enter it into your PET: 

10 GETA$ : IF A$=" " THEN 10 

Aha! If you are very observant, you have noticed that as long as 
A$=" " (or A$ equals nothing or null) your PET will keep loop-de- 
looping back to Line 10. However, as soon as you hit a key it will 
stop. To make sure that your PET got the character that you hit, just 
type in: 

PRINT A$ 

Egads, it remembers! But, did you notice that while your PET 
was waiting for you to hit a key it didn't blink a cursor like it would 
after an INPUT? Have no fear, we can alter this situation by POKing 
around a little. 



233 



234 SPECIAL GUEST LECTURES 

In the new PET, we'll POKE 167, 0and in the older PET, we'll 
POKE 548,0. 

New-fangled PET owners, just enter this: 

NEW PET: 

10GETA$ 

20 IF A$=" " THEN POKE 167, : GOTO 10 

30 PRINT A$; : GOTO 10 

Older PET owners (we're referring to PET's age, not yours), 
enter this: 

OLD PET: 

10GETA$ 

20 IF A$=" " THEN POKE 548, : GOTO 10 

30 PRINT A$; : GOTO 10 

Let's try the program. Type in a few lines, hit RETURN a few 
times, and watch the cursor blinkety-blink-blink-blink— when it's not 
supposed to! Amazing! If you replace the that follows the POKE 
statement with a 1, your PET will cease blinking and return to 
normal. 



Lecture 5 
Dr. Wacko's Erroroonie Program 

You can make all sorts of mistakes when entering or running 
programs on your PET, and when you do, your PET will tell you by 
displaying an error message. 

Now, I'm going to ask you to put on your thinking caps and do 
a little exercise. If you'll look at the blackboard, you will see that 
I've listed your PET's most common error messages. Review these, 
and try to make the mistake that will cause your PET to give you 
this message. Remember, anyone can do it right, but it takes a real 
computer phreque (like the defused Dr. Wacko) to go out of his or 
her way to do it wrong! 

See how many of these mistakes you can make on your own. 
When you've finished reviewing the list of the MOST Common PET 
Misdemeanors, I'll go over each one in my lecture. 

POUT OF DATA ERROR 
PDIVISION BY ZERO ERROR 
PILLEGAL DIRECT ERROR 
PILLEGAL QUANTITY ERROR 
PBAD SUBSCRIPT ERROR 
PNEXT WITHOUT FOR ERROR 
PRETURN WITHOUT GOSUB 
PFILE OPEN ERROR 
PFILE NOT OPEN ERROR 
PNOT INPUT FILE ERROR 
PNOT OUTPUT FILE ERROR 
PDEVICE NOT PRESENT 
PCAN'T CONTINUE ERROR 
POVERFLOW ERROR 
PREDIM'D ARRAY ERROR 
PSTRING TOO LONG ERROR 
PSYNTAX ERROR 
PTYPE MISMATCH 
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PUNDEFINED STATEMENT 
POUT OF MEMORY ERROR 
PFILE DATA ERROR 
PREDO FROM START 

I see that you're all finished, and you all did just fine! I'll bet 
you never thought there were so many ways you could turn the 
tables on your PET. Let's start at the top of the error list and pro- 
duce each error message. Your goal is to do nothing rightl 

POUT OF DATA ERROR To get this error message, simply ask your 
PET to READ some DATA and then— don't provide any! You can do 
this with the direct command: 

READ A$ 

PDIVISION BY ZERO ERROR It's simple to make this mistake. 
Just ask your PET to divide any number by zero, such as: 

PRINT 56/0 

It can't do a thing! 

PILLEGAL DIRECT Your PET is perfectly capable of distinguishing 
between running a program and executing a direct command that 
isn't part of a program. Let's get its wires crossed. You can do this by 
using INPUT, GET, or DEF in a direct command. Try this: 

INPUT "WHAT IS YOUR NAME"; A$ 

PILLEGAL QUANTITY There are quite a few things you can do to 
get this error— in fact, the possibilities for confusing your PET may 
be infinite. Here are some: 

You can OPEN a file numbered from 1 to 255 only. Then— 

OPEN 256, 3 

You can't have a negative number raised to a non-integer power 
if you're using variables to represent the numbers. So: 

A=-l : B=.5 : PRINT A [UP ARROW] B 

You can't compute the square root of a negative number. But 
why not try? 

PRINT SQR(-4) 
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You also can't compute the LOG of a negative number, as in: 

PRINT LOG(-7) 

Subscripted variables are allowed only up to reasonable limits. 
Dr. Wacko says: "Why be reasonable?" 

A$(76543)=0 

You can't have a negative subscripted variable. Says who? 

A$<-3>=0 

Your PET will say it for you: 

ERROROONIE! 

?BAD SUBSCRIPT ERROR In the previous error message, we saw 
some bad subscripts, but they caused an illegal quantity error rather 
than a bad subscript error. You will get a bad subscript error when 
you have a subscript that is greater than 10 (or greater than the num- 
ber set by a DIM statement) and less than 32768. Try this: 

A(11)=0 

?NEXT WITHOUT FOR ERROR This is quite easy. Just issue a 
NEXT X command before a FOR (putting the cart before the horse, 
so to speak— a common occurrence in the life of Dr. Wacko). 
Example: 

NEXT 

?RETURN WITHOUT GOSUB This one has lots in common with 
the previous message. This time your PET found a RETURN and had 
no previous GOSUB to fall back on (all dressed up and nowhere to 
go). Example: 

RETURN 

?FILE OPEN ERROR Try opening the same file a second time when 
you've foolishly neglected to close it the first time! Example: 

OPEN 3,3 : OPEN 3,3 

?FILE NOT OPEN ERROR This one is not as easy as you may have 
thought! I bet you tried to CLOSE a file that you didn't yet OPEN. 
Even Dr. Wacko fell into that trap. But alas, the PET will cheerfully 
let you close any file, even one that you didn't even OPEN. But you 
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will get this message if you try to PRINT#4, INPUT#4, or GET#4 
before you OPEN that file. (Incidentally, the file number can be 
from 1 to 255 with a device number from 0to 16.) Example: 

PRINT#3 

?NOT INPUT FILE ERROR It should be obvious to you how to 
produce this error message, but then what would you need Dr. 
Wacko for? 

To perpetrate this particular confusion, try to INPUT data from 
a file that you identified as an OUTPUT file. 

OPEN 1,1,1 : REM OPEN TAPE#1 FOR A WRITE 

Press PLAY on Tape #1 (no need to put in a tape— PET's al- 
ready confused enough). 
Wait a few seconds. 

INPUT* 1,A$ 

?NOT OUTPUT FILE ERROR This one should be a dead giveaway. 
All you have to do is try to OUTPUT data to a file you have defined 

as an INPUT-only file. 

However, this is easier said than done. 

It was easy for you to fool the PET into thinking we were writ- 
ing a tape, but it's much harder to trick it into thinking you are read- 
ing one. 

I knew you couldn't do it without me! Example: 

OPEN 1,1 : REM OPEN TAPE#1 FOR A READ 

Hit the STOP key on your keyboard. 

PRINT #1 

Another way is to OPEN your keyboard (device #0) for INPUT 
and then PRINT. Follow the leader: 

OPEN 1,0 
PRINT#1 

PDEVICE NOT PRESENT This one is a wee bit tricky. If you don't 
have any devices connected to your IEEE Port, it can actually be 
quite easy. Simply OPEN an OUTPUT file to a device higher than 3 
and PRINT* to it: 



SPECIAL GUEST LECTURES 239 

OPEN 4,4 
PRINT#4 

However, if you have a PET Printer and PET Disk nicely hooked 
up to your computer, you often won't get this message, even if 
you've cleverly turned off both devices. In order to produce this 
superfluous slip-up, you must go to the entirely unnecessary trouble 
of disconnecting your disk and/or printer from PET 's edge connector. 
Real computer wackos go to a lot of trouble! 

PCAN'T CONTINUE ERROR Your clever little PET remembers the 
last line executed when it's running a program. However, its memory 
is short. So, first enter a short program and then enter CONT: 

10 REM 
CONT 

Be advised— PET won't oblige you with the required response if 
there's no program in the computer. If you pull this trick on an 
empty PET, the little tyke will simply blink at you and say READY. 

POVERFLOW ERROR If you know about exponents, this message 
is easy as pie. (If you don't know about exponents, what kind of a 
computer phreque are you?) Anyhow, try this: 

PRINT 99999 [UP ARROW] 99999 

It appears that PET will not allow any number above 
1.70141184550E38. Now try these: 

PRINT 1.70141 184550E38 
PRINT 1.701411845501E38 

What about an UNDERFLOW ERROR? Good question, class- 
you thought you had me that time! Well, there's no such thing. If an 
underflow occurs, PET simply rounds it off to 0. 

PREDIM'D ARRAY ERROR This one carries the clue within its 
message. Got it? No? Tsk, tsk, tsk. I'll give you a break: you only 
have to try to DIM the same subscripted variable twice to end up 
with this message: 

DIMA(1),A(1) 
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Or: 

DIM B(4) 
DIM B(12) 

PSTRING TOO LONG ERROR Now this is really an easy one- 
you're limited to an 80-character line for keyboard entry. However, 
you can go up to 255 characters in a string, and strings can be con- 
catenated (added or tacked together). Armed with this knowledge, 
you should be able to get this Erroroonie: 

A$="A" .- FOR X=l TO 255 : A$=A$+A$ : NEXT 

PSYNTAX ERROR This is one you've seen frequently, if you've 
spent any time at all around computers and aren't just sneaking into 
class to get out of Home Ec. 

To get SYNTAX ERROR, all you have to do is misspell a 
BASIC word, forget a comma or parenthesis, or just enter plain 
garbage, all of which should come easily to you if you're any kind 
of aspiring computer phreque. For example: 

Q 

PTYPE MISMATCH No, no, no! You're not allowed to mix strings 
with numbers. Naughty of you, trying to equate a string variable 
with a numeric expression. PET fights back with this response. Try: 

A$=5 

Or 

A="WRONG" 

'UNDEFINED STATEMENT Your PET doesn't take kindly to 
things that don't exist, literal-minded critter that it is. This error mes- 
sage will appear if your PET is instructed to GOTO, GOSUB or IF 
THEN to a line that does not exist. This is PET's way of giving us the 
raspberry when we try to lead it up the garden path. Try: 

NEW 
GOTO 5 

POUT OF MEMORY ERROR Of course, it's nothing to get this mes- 
sage when you're actually out of memory! We computer phreques 
disdain anything so simple, direct, and obvious. The trick is to get 
this message when you still have memory left. 
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For example: 

10 FOR X=l TO 20 : GOSUB 10 
and we get the OUT OF MEMORY message. Now: 
PRINT FRE(0) 

and you'll see that you still have plenty of memory available. 

How did we create this delusion? What happened is that you 
overflowed the stack that the PET keeps to remember its FOR 
NEXT and GOSUB return points. 

Here is a way to run out of memory by allocating or "reserving" 
more than you actually have available: 

10DIMA(99,99) 
RUN 

Or 

10 DIM A(9999) 
RUN 

The hard way to get this message is to keep entering a very long 
program until sooner or later you run out of memory. No normal 
person would sit around all day doing this, but— are you a normal 
person? If so, what are you doing in my class? 

?UNDEF'D FUNCTION ERROR This is simple to get if you have 
the lamentably sane, organized, normal habit of defining user func- 
tions. Cut it out! Ask the PET to perform a function that you 
haven't defined yet, such as: 

PRINT FNA(l) 

PFILE DATA ERROR To get this error, open the screen for input 
of a numeric variable and have it read in nonnumeric data. Follow 
me: 

10 OPEN 3, 3 

20PRINT"ABC[UP]" 

30INPUT#3,A 

?REDO FROM START I've been told this many times, especially 
when I submitted my doctoral thesis on SCRAMBLED BASIC. This 
particular message is less drastic— it's PET informing you in its unique 
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way that you've entered a nonnumeric piece of data in response to 
an input requesting numeric data. It's quite simple. Do this: 

10 INPUT A 
RUN 

A [RETURN] 

Of course, you can hit any key in place of A— if you insist on 
being experimental and original— as long as the key isn't numeric. 

BREAK 

That's exactly what I need right now, after guiding all you jun- 
ior computerologists through myriads of error messages. Of course, 
my classes have often shouted this at me, and PET is saying some- 
thing quite similar. It's informing you that it was in the middle of 
processing when it was rudely interrupted. 

You can get this message by hitting the STOP key while the 
PET is busy trying to process one of your programs. Example: 

For X=l TO 9999: NEXT 

Now, hit the STOP key. It shouldn't happen to a PET! 
Last, but not least, here's-. 

HOW TO CHEAT 

Now that you saw how to get each of the previous error mes- 
sages to be displayed, here is a program that will cause 18 of them to 
appear with only one RUN. Now, how's that for cheating! 

Before you are awarded your honorary degree in Computer 
Wacko Science RUN the following program to see just how many 
ways a computer phreque can go wrong: 

5 PRINT"?"; 

10FORX=49553 TO 49802 

20 : IF PEEK(X)>191 THEN PRINT CHR$(PEEK(X)-128); 
" ERROR" : PRINT"?" : X=X+1 

30 :PRINT CHR$(PEEK(X)) ; 

40NEXTX 

50PRINT"[UP]"; 
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Now, simply RUN the program and see that you get just what 
you deserve! 

What's this? Another student has modified the six-line cheating 
program to fit into just two (2) program lines? Unbelievable! Here it 
is: 

1 PRINT"?"; :FORX=49553TO49802:IFPEEK(X)>191THEN 

PRINTCHR$(PEEK(X)-128)" ERROR" :PRINT"?"; : 
X=X+1 

2 PRINTCHR$(PEEK(X)); :NEXT :PRINT"[UP] "; :END : 

REM1 RUN DISPLAYS 18 ERROR MESSAGES (NEW 
ROM) 

READY. 

I see that those of you who are crowding around the door in- 
stead of sleeping on top of your terminals have successfully made it 
through my course. I'm proud of all of you, so tell all your friends 
about my lectures. Now that you're all certified computer wackos, 
you may continue on to the Graduate School of Games. Remember, 
the motto of the computer wacko is never to follow orders blindly. 
If there's a way to do something, there's also a way to undo it! You 
may proceed to the graduation exercises and onto the playing fields! 
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THE BOOK. . . 

PET Games and Recreations is a delightful menagerie of diversions, carefully 
designed to entertain and educate. It's ideal for beginning programmers and 
equally challenging for computer veterans. Game enthusiasts of all ages will 
love the variety and excitement. 

Each game is preceded by an amusing and understandable write-up that 
gives you the "flavor" of the game, a summary of instructions, interesting 
background information, level of difficulty, and a very occasional strategy 
hint. 

Each category begins with "A-level" games (players as young as 6 can learn 
and enjoy these). The range of difficulty within each category progresses from 
beginners' games to games that could stump a logic professor for a month! 

Five Types of Games 

• Plan-Ahead Games . . . test your ability to think out strategies in order to 
win. 

• Deductive Reasoning Games . . . place you in the role of detective. 

• Games of Chance . . . combine logic with good fortune as you gamble 
against the computer. 

• Language and Counting Skills Games . . . develop your counting and 
language skills. 

• Recreations . . . pure entertainment, emphasizing your PET's graphics 
capabilities. 



-PLUS- 

An Added Bonus ... Dr. Wacko's lecture series on Computer Wacko Sci- 
ence. Prerequisite: a sense of humor and desire to experiment. Laugh and 
Learn! 



THE SOFTWARE . . . 

Action-packed and ready to run! Ten of the longer games from this book are 
available on tape cassette. If you want instant gratification and communica- 
tion with your PET, this is for you -games include: Marblestat; Hurkle: 
Square; Watchperson; How Many?: Motie; Reverse; Sinners; and Stars. To 
Order-Ask your local dealer or write to Software, Reston Publishing Com- 
pany, 11480 Sunset Hills Rd., Reston, Virginia 22090. 



RESTON PUBLISHING COMPANY, 
A Prentice-Hall Company 
Reston, Virginia 



INC. 



0-8359-5529-X 



